R语言如何将传入的裸变量向量优雅转换为对应变量名字符向量

问题场景 #

需要在自定义函数中接收c(hp, drat, wt)形式的未加引号变量输入，将其转换为字符向量，用于后续拼接生成模型公式。要求实现不依赖外部预加载的数据集，符合tidyeval设计规范，避免硬编码逻辑。

已尝试方案的缺陷 #

• 直接对捕获的表达式转字符

  library(tidyverse)
  data <- as_tibble(mtcars)
  
  foo <- function (vars) {
    as.character(enexpr(vars))
  }
  
  foo(c(hp, drat, wt))
  

  运行返回[1] "c" "hp" "drat" "wt"，会把c()函数本身作为第一个元素，不符合预期。
• 借助select()提取变量名

  foo <- function (vars) {
    names(select(data, {{ vars }}))
  }
  

  该实现强依赖函数外部全局环境中预先定义的data对象，耦合度高，通用性差。
• 硬编码删除返回结果的第一个元素

  foo <- function (vars) {
    as.character(enexpr(vars))[-1]
  }
  

  仅适配c()包裹多变量的输入场景，传入单个变量时会返回空值，没有输入校验逻辑，鲁棒性差。

推荐实现 #

直接使用rlang包提供的tidyeval原生工具处理表达式，不需要依赖任何外部数据集，同时兼容单变量、多变量输入场景：

library(rlang)

foo <- function(vars) {
  var_expr <- enexpr(vars)
  # 识别c()调用，提取参数列表，兼容单变量输入
  var_list <- if (is_call(var_expr, "c")) {
    call_args(var_expr)
  } else {
    list(var_expr)
  }
  # 将表达式统一转为标准字符型变量名
  purrr::map_chr(var_list, as_name)
}

注意：使用as_name()而非直接as.character()转换表达式，可以避免传入特殊语法时返回非预期的字符串，是tidyeval中转换变量名的标准方法。

测试效果 #

# 多变量输入
foo(c(hp, drat, wt))
#> [1] "hp"   "drat" "wt"

# 单变量输入
foo(mpg)
#> [1] "mpg"

如果需要支持hp:wt、starts_with("d")这类tidyselect选择语法，可以用tidyselect包的轻量实现：

library(tidyselect)

foo <- function(vars) {
  # 用0行空结构提供变量上下文，无内存开销
  selected <- eval_select(enquo(vars), data = mtcars[0, ])
  names(selected)
}

# 支持范围选择
foo(hp:wt)
#> [1] "hp"   "drat" "wt"

# 支持辅助函数选择
foo(starts_with("d"))
#> [1] "disp" "drat"

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