R语言：如何在函数中判断双大括号传入的变量是否为指定列？

核心问题是你需要判断传入参数对应的列名字符串，而非变量引用本身。之前的写法错误在于试图将数据框的列引用和未定义的环境对象ses比较，导致报错。

示例数据集 #

df <- tibble::tibble(
  ses = c("low", "medium", "high", "low", "medium"),
  score = c(50, 70, 85, 45, 65),
  age = c(18, 20, 22, 19, 21)
)

修正后的函数 #

plot_func <- function(data, x_variable) {
  # 捕获传入的参数表达式，转换为列名字符串
  x_colname <- rlang::as_name(rlang::enquo(x_variable))
  
  if (x_colname == "ses") {
    ggplot2::ggplot(data, ggplot2::aes(x = {{x_variable}}, y = score)) +
      ggplot2::geom_boxplot()
  } else {
    stop("仅支持'ses'作为x变量选项")
  }
}

代码说明 #

• rlang::enquo(x_variable)：捕获传入的参数表达式（比如调用plot_func(df, ses)时，捕获的是ses这个符号）
• rlang::as_name()：将捕获的符号转换为对应的字符串"ses"，实现和目标选项的直接比较
• {{x_variable}}：在绘图的aes中保留该语法，确保变量的正确引用

测试验证 #

# 传入支持的列，正常生成绘图
plot_func(df, ses)

# 传入不支持的列，抛出错误提示
plot_func(df, age)

内容的提问来源于stack exchange，提问作者J.Sabree