R语言本地函数中向group_by传递变量的问题求解

你的问题本质是tidy eval的准引用（{{}}）仅支持直接传入裸变量名，无法处理字符串或嵌套函数传递的变量。可以通过rlang工具和dplyr的列引用方法改造函数，使其兼容两种输入场景。

改造后的函数（通用版） #

结合rlang::ensym()和.data代词，让函数自动识别裸变量名或字符串：

library(dplyr)
library(rlang)

mytable <- function(x, group) {
  # 将输入转换为列名字符串（兼容裸变量/字符串）
  group_col <- as_name(ensym(group))
  
  x %>% 
    group_by(.data[[group_col]]) %>% 
    summarise(n = n(), .groups = "drop") # .groups = "drop"自动取消分组
}

关键逻辑说明 #

• ensym(group)：把输入的参数（无论是Species这类裸变量名，还是"Species"这类字符串）转换为R的符号对象；
• as_name()：将符号对象转为字符串格式，方便后续引用列；
• .data[[group_col]]：dplyr的.data代词明确指定从输入数据框x中提取列，避免环境变量与列名混淆。

测试两种报错场景 #

场景1：传入字符串形式的变量名 #

group <- "Species"
mytable(iris, group = group)

输出结果：

# A tibble: 3 × 2
  Species        n
  <fct>      <int>
1 setosa        50
2 versicolor    50
3 virginica     50

场景2：通过嵌套函数传递变量 #

mytable2 <- function(x, y=0, group) {
  mytable(x = x, group = group)
}

# 传字符串
mytable2(iris, group = "Species")
# 传裸变量名也支持
mytable2(iris, group = Species)

两种调用方式都能得到正确的分组统计结果。

替代方案：使用tidyselect::all_of() #

如果不想依赖rlang，也可以用tidyselect包的all_of()函数实现相同效果：

library(dplyr)
library(tidyselect)

mytable <- function(x, group) {
  group_col <- if (is.character(group)) {
    group
  } else {
    deparse(substitute(group))
  }
  
  x %>% 
    group_by(all_of(group_col)) %>% 
    summarise(n = n(), .groups = "drop")
}

这个版本通过判断输入类型，手动将裸变量名转为字符串，再用all_of()引用列。

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