为curly-curly参数添加额外分组变量的R语言dplyr实现问题

首先得明确{{ }}（curly-curly）的核心作用：它帮你把函数参数里的裸列名表达式（比如调用时写的cyl）转换成dplyr能识别的数据集列引用——简单说就是让函数知道你传的是数据里的列，不是普通变量。

你原来的写法{{ c(by, hp) }}行不通，因为c(by, hp)是把by当成普通变量来组合，而不是先解析by对应的列。正确的做法是把固定列hp和解析后的by分开写，直接放在group_by的参数里：

mean_by <- function(data, by, var) {
  data %>%
    dplyr::group_by({{ by }}, hp) %>%  # 分别处理：解析用户传入的by，直接用数据集里的hp列
    dplyr::summarise(avg = mean({{ var }}, na.rm = TRUE))
}

# 调用测试
mtcars %>% mean_by(by = cyl, var = disp)

如果之后想支持用户传入多个自定义分组变量，同时保留hp作为固定分组，可以把by改成可变参数，结合{{ }}和...实现：

mean_by <- function(data, var, ...) {
  data %>%
    dplyr::group_by(..., hp) %>%  # ...接收用户传的任意多个分组列，再固定加上hp
    dplyr::summarise(avg = mean({{ var }}, na.rm = TRUE))
}

# 调用示例：同时按cyl、gear和hp分组
mtcars %>% mean_by(var = disp, cyl, gear)

总结{{ }}的使用要点：

• 它只作用在单个参数上，用来解析这个参数对应的列表达式
• 不要把多个列的组合包在{{ }}里面，而是分开传递给group_by这类函数

内容的提问来源于stack exchange，提问作者RoyalTS