R：在apply系列函数中使用MoreArgs参数

Question

我有一个复杂的函数，需要一堆图形对象和ggplot映射，并将它们组合成gtable。 出于这个问题的目的，我将该函数表示为简单的线性函数MyFun1或MyFun2，它们的区别仅在于...参数的存在。

创建gtable的函数具有两个变化的自变量和一堆在给定运行中恒定的其他自变量。 我正在尝试使用mapply运行该函数，使用MoreArgs参数提供常量（每次运行-在更大的循环中更改）的参数。 但是，我出错了，尽管传递的值已在主体中使用，但它们还是多余的。

mArgs  <- list(y1=1, y2=2)
MyFun1  <- function(x, y){x*y1 + y*y2}
MyFun2 <- function(x, y, ...){x*y1 + y*y2}

R1 <- function(A, B){
   out <- mapply(MyFun, x=A, y=B, MoreArgs = mArgs)
} 
R1(1:3, 4:6)
 Error in (function (x, y)  : unused arguments (y1 = 1, y2 = 2)

追溯：

3. (function (x, y) 
{
    x * y1 + y * y2
})(x = dots[[1L]][[1L]], y = dots[[2L]][[1L]], y1 = 1, y2 = 2) 
2. mapply(MyFun, x = A, y = B, MoreArgs = mArgs) 
1. R1(1:3, 4:6) 

我以为问题可能出在MyFun1缺少将附加参数传递到主体中所需的形式，所以我尝试添加一个...参数。 但是现在MyFun在MoreArgs列表中找不到参数。

R2 <- function(A, B){
   out <- mapply(MyFun2, x=A, y=B, MoreArgs = mArgs)
}
R2(1:3, 4:6)
 Error in (function (x, y, ...)  : object 'y1' not found 

追溯：

3. (function (x, y, ...) 
{
    x * y1 + y * y2
})(x = dots[[1L]][[1L]], y = dots[[2L]][[1L]], y1 = 1, y2 = 2) 
2. mapply(MyFun2, x = A, y = B, MoreArgs = mArgs) 
1. R2(1:3, 4:6) 

然后我想，对我有限的理解，也许全球环境中的mArgs不在MyFun2的范围内，尽管看起来应该如此。 因此，我将其添加为每个调用函数的参数。 这并没有改变结果。

R3 <- function(A, B, mArgs){
   out <- mapply(function(x,y, ...){x*y1 + y*y2}, x=A, y=B,
                 MoreArgs = mArgs)
}
R3(1:3, 4:6, mArgs)
 Error in (function (x, y, ...)  : object 'y1' not found

追溯：

3. (function (x, y, ...) 
{
    x * y1 + y * y2
})(x = dots[[1L]][[1L]], y = dots[[2L]][[1L]], y1 = 1, y2 = 2) 
2. mapply(function(x, y, ...) {
    x * y1 + y * y2
}, x = A, y = B, MoreArgs = mArgs) 
1. R3(1:3, 4:6, mArgs) 

我在每个函数中都尝试用列表本身替换mArgs，在任何情况下都不会改变结果。

我感到困惑。 救命！

Answer 1

要解决您的问题，您可以执行以下操作：

MyFun2 <- function(x, y, y1, y2){x*y1 + y*y2}

要回答您的方法为什么不起作用的原因，请参阅dot-dot-dot上的R-lang：

2.1.9点-点-点

“ ...”对象类型存储为配对列表类型。 可以从C代码以通常的成对列表方式访问'...'的组件，但在解释代码中不容易将其作为对象进行访问。 可以将该对象捕获为列表，因此例如在表一中可以看到

 args <- list(...) 

....

 for (a in args) { 

如果函数以“ ...”作为形式参数，则所有与形式参数不匹配的实际参数都将以“ ...”匹配。

因此您必须从...手动提取y1和y2 ：

MyFun2 <- function(x, y, ...){
    additional.args <- list(...)
    y1 <- additional.args[[1]] 
    y2 <- additional.args[[2]]
    x*y1 + y*y2
}

MyFun2(1, 2, 1, 2)
# [1] 5

关于moreArgs，这是针对不会向量化的参数。 请参阅以下示例：

mapply(function(x, y){
    print('----------------')
    print(x)
    print(y)
    x + y
}, x = 1:3, y = 1:3)

# [1] "----------------"
# [1] 1
# [1] 1
# [1] "----------------"
# [1] 2
# [1] 2
# [1] "----------------"
# [1] 3
# [1] 3
# [1] 2 4 6

mapply(function(x, y){
    print('----------------')
    print(x)
    print(y)
    x + y
}, x = 1:3, MoreArgs = list(y = 1:3))

# [1] "----------------"
# [1] 1
# [1] 1 2 3
# [1] "----------------"
# [1] 2
# [1] 1 2 3
# [1] "----------------"
# [1] 3
# [1] 1 2 3

#      [,1] [,2] [,3]
# [1,]    2    3    4
# [2,]    3    4    5
# [3,]    4    5    6