base R中如何获取传入函数的参数所引用的原始对象名称

核心利用base R内置的all.vars()函数直接解析参数表达式中的变量名，无需错误捕获和正则匹配，逻辑更稳定可靠。

实现代码 #

df <- data.frame(x= 1:10, y=1:10)

myfun <- function(data, col){
  # 捕获传入的col参数的未求值表达式
  col_expr <- substitute(col)
  # 提取表达式中引用的所有原始列名
  col_vars <- all.vars(col_expr)
  # 单变量直接作为标题，多变量可自定义拼接规则
  object_name <- if (length(col_vars) == 1) col_vars else paste(col_vars, collapse = "、")
  # 求值得到处理后的列数据
  col_new <- eval(col_expr, data)
  plot(col_new, main = object_name)
}

效果验证 #

• 调用myfun(df, x*x)：绘图标题为x，和预期一致
• 调用myfun(df, log(y+1))：绘图标题为y
• 调用myfun(df, x + 2*y)：绘图标题为x、y，支持多变量场景

方案优势 #

1. 完全基于base R实现，无第三方依赖
2. 规避了原有方案的潜在bug：如果全局环境存在和列同名的变量，原有tryCatch方案会直接求值成功，无法正确提取列名，本方案直接解析表达式语法树，不受外部环境变量影响
3. 支持任意复杂的列变换表达式，只要是合法的R表达式都能正确提取引用的原始列名

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