如何group_by多个,灵活的标准

时间:2015-06-29 17:51:09

标签: r dplyr

我正在尝试在函数内部使用group_by,分组条件是函数的输入。现在我把它设置为:

x <- function(data, grouping_vector) {
  data %>%
    group_by_(grouping_vector) %>%
    summarise(n = n()) -> output
  output
}

...但是当我尝试在多个分组项目列表中使用此功能时:

example <- x(data = my_data, grouping_vector = c(col1, col2))

失败了。有没有办法将多个group_by主题提供给该功能?我知道你可以简单地用逗号分隔多个列,但我不知道如何在函数中做到这一点。

由于

1 个答案:

答案 0 :(得分:5)

确保将grouping_vector传递给.dots参数:

x <- function(data, grouping_vector) {
  data %>%
    group_by_(.dots = grouping_vector) %>%
    summarise(n = n())
}


# example
data(ChickWeight)
x(ChickWeight, c("Chick", "Diet"))

产生

##    Chick Diet  n
## 1     18    1  2
## 2     16    1  7
## 3     15    1  8
## 4     13    1 12
## 5      9    1 12
## 6     20    1 12
## 7     10    1 12
## 8      8    1 11
## 9     17    1 12
## 10    19    1 12
## ..   ...  ... ..