Question

我正在尝试在函数内部使用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主题提供给该功能？我知道你可以简单地用逗号分隔多个列，但我不知道如何在函数中做到这一点。

由于

Answer 1

确保将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
## ..   ...  ... ..

如何group_by多个，灵活的标准

1 个答案: