将 mapply 与 '...' 一起使用

Question

在 R 中，我试图将可选参数 ... 传递给使用 mapply 的自定义函数，但没有成功。这是我想要做的：

我已经定义了一个函数：

require(dplyr) 
CustomFunc <- function(...,a,b) {
Data %>% 
         mutate (X1 = a * Column1,
                 X2 = b * Column2) %>%
         group_by(...) %>%
         summarise( GrandTotal =sum(X1/X2) )
}

我可以通过例如传递来很好地使用这个函数

CustomFunct(a= 4, b = 7)

或者例如这也有效：

CustomFunct(ColumnHeader1,ColumnHeader2,
            a= 4, b = 7)

这里的关键是要注意第一个参数... 是可选的并且可以是可变长度的（这里我传递ColumnHeader1 和ColumnHeader2）

但是，我希望看到来自 CustomFunct 的结果，用于 a 和 b 的输入数组的笛卡尔连接，例如：

a <- c(3,6,12,24)
b <- c(1,7)

我使用以下方法创建了 a 和 b 的所有组合：

inputs <- expand.grid( a = c(3,6,12,24), 
                       b = c(1,7) )

我可以使用以下代码让CustomFunct 工作

mapply(CustomFunct,
       a = inputs$a,
       b = inputs$b)

然而，我正在寻找的是能够将可选参数 ... 传递给 CustomFunct，在我的脑海中看起来像这样：

mapply(CustomFunct,
       ... = list(ColumnHeader1,ColumnHeader2),
       a = inputs$a,
       b = inputs$b)

但这不起作用。有人可以帮我找到正确的语法吗？

Answer 1

改用 dplyr 怎么样：

inputs %>% rowwise() %>% do(CustomFunc(ColumnHeader1, a=.$a, b=.$b))

Answer 2

只需删除... = 和列表：

mapply(CustomFunct,
       ColumnHeader1, ColumnHeader2,
       a = inputs$a,
       b = inputs$b)

但是，您的 CustomFunct 在其 ... 参数中使用非标准评估。这本身很好，但mapply 对其所有参数执行标准评估。因此，mapply 会抱怨 ColumnHeader1 不存在。要解决此问题，请使用标准评估 dplyr 函数（在本例中为group_by_）：

CustomFunc <- function(..., a, b) {
    Data %>% 
        mutate(X1 = a * Column1,
               X2 = b * Column2) %>%
        group_by_(...) %>%
        summarize(GrandTotal = sum(X1 / X2))
}

mapply(CustomFunct, 'Columnheader1', 'ColumnHeader2',
       a = inputs$a, b = inputs$b)

如果你想继续使用CustomFunct进行非标准评估，你应该做dplyr所做的，并提供两个版本：NSECustomFunct和标准评估CustomFunct_，然后使用mapply和后者。