将多个参数传递给 R 中的 dplyr 函数时出错

Question

扩展@G 给出的this answer。格洛腾迪克，如何在一个函数中将多个分组变量传递给 dplyr？

假设我有这些数据：

# Data
set.seed(1)
dfx <- data.frame(nLive = sample(x = 10, size = 40, replace = TRUE),
                  nDead = sample(x = 3, size = 40, replace = TRUE),              
                  areaA = c(rep("A", 20), rep("B", 20)),
                  areaB = rep( c( rep("yes", 10), rep("no", 10)), 2),
                  year = rep(c(2000,2002,2004,2006,2008),4)
                  )

我想按年份分组，最多可能还有 2 个其他变量。

G. Grothendieck 的示例非常适合指定 1 个索引：

UnFun <- function(dat, index) {
  dat %>%
    group_by(year) %>%
    regroup(list(index)) %>%
    summarise(n = n() ) 
}

> UnFun(dfx, "areaA")
Source: local data frame [2 x 2]    
  areaA  n
1     A 20
2     B 20

> UnFun(dfx, "areaB")
Source: local data frame [2 x 2]    
  areaB  n
1    no 20
2   yes 20

但当我尝试按两者（或仅按年份）分组时，我得到错误或错误答案：

> UnFun(dfx, list("areaA", "areaB"))
Error: cannot convert to symbol (SYMSXP)

> UnFun(dfx, c("areaA", "areaB"))
Source: local data frame [2 x 2]

  areaA  n
1     A 20
2     B 20

UnFun(dfx, NULL)
Error: cannot convert to symbol (SYMSXP)

关于如何正确指定 0、1 或 2 组选项的任何提示？

感谢 R 社区！

Answer 1

这确实有效：

UnFun <- function(dat, index) {
  dat %>%
    group_by_(.dots = c(quote(year), index)) %>%
    tally 
}
UnFun(dfx, c("areaA", "areaB"))