如何将三个点参数传递给 dplyr funs答案

【问题标题】：How can I pass three dots parameter to dplyr funs如何将三个点参数传递给 dplyr funs
【发布时间】：2017-02-28 08:46:36
【问题描述】：

假设数据集中有一列名为 GROUP：

summ <- function(dataset, FUN = mean, …) {
    dataset <- dataset %>% group_by(GROUP) %>% summarise_each(funs(FUN)) %>% arrange(GROUP)
    data.frame(dataset)
}
dataset<- data.frame(a = c(1, 2, 3, NA), GROUP = c(1, 2, 2, 1)
summ(dataset, na.rm = TRUE)

  GROUP    a
1     1   NA
2     2  2.5

所需的行为是将 na.rm = TRUE 参数传递给 mean 函数以在计算结果之前删除 NA。预期的输出是：

  GROUP    a
1     1    1
2     2  2.5

如何将 ... 参数传递给 funs？我试过了

summarise_each(funs(FUN(., …)))

和

FUN <- match.fun(FUN)
funs_(dots = substitute(FUN), args = list(...))

和

summarise_each(funs_(dots = FUN, args = list(…)))

最后一个示例引发错误“UseMethod("as.lazy_dots") 中的错误”

【问题讨论】：

请展示一个可重现的小例子和预期的输出
谢谢。我添加了一个示例并尝试了建议的答案。 @Axeman，尝试了你的答案，但它不起作用。

标签： r dplyr

【解决方案1】：

在您的函数中，创建一个新函数，即包含点-点-点的 FUN 函数：

summ <- function(dataset, FUN = mean, ...) {
    FUN2 = function(x){FUN(x,...)}
    dataset <- dataset %>% group_by(GROUP) %>% summarise_each(funs(FUN2)) %>% arrange(GROUP)
    data.frame(dataset)
}

> summ(dataset,na.rm=TRUE)
  GROUP   a
1     1 1.0
2     2 2.5
> summ(dataset)
  GROUP   a
1     1  NA
2     2 2.5
>

【讨论】：

谢谢，非常简洁的解决方案。接受你的回答。

【解决方案2】：

将点捕获为列表，并使用substitute 我们可以正确使用funs_：

summ <- function(dataset, FUN = mean, ...) {
  dots <- list(...)
  FUN <- substitute(FUN)

  dataset %>% 
    group_by(GROUP) %>% 
    summarise_each(funs_(FUN, args = dots)) %>% 
    arrange(GROUP)
}

summ(dataset, na.rm = TRUE)

# A tibble: 2 × 2
  GROUP     a
  <dbl> <dbl>
1     1   1.0
2     2   2.5

【讨论】：