函数写入将列引用传递给group

我对R.很新 . 尝试定义一个对数据集进行分组的函数（group_by），然后根据分组（dplyr，summarise_each）创建汇总统计信息 .

没有定义函数，以下工作：

sum_stat <- data %>%
  group_by(column) %>%
  summarise_each(funs(mean), var1:var20)

以下函数表单不起作用：

sum_stat <- function(data, column){
  data %>%
    group_by(column) %>%
    summarise_each(funs(mean), var1:var20)
}

sum_stat(data, column)

返回的错误消息是：

错误：未知列“列”

1 回答

这是你通常的做法：

foo <- function(data,column){
  data %>%
    group_by_(.dots = column) %>%
    summarise_each(funs(mean))
}

foo(mtcars,"cyl")
foo(mtcars,"gear")

回复于 2024-04-24T22:51:02+08:00