如何在R包裹函数中传递参数构建y~x式公式给内部函数？

方法1：使用tidyeval语法（支持裸变量名输入） #

正确利用{{}}（enquo()+!!的语法糖）捕获变量符号，让函数在传入的数据框环境中解析变量：

# 定义函数
example.function <- function(my.data, my.y){
  my.result <- lm(data = my.data, formula = {{my.y}} ~ test.x) 
  return(my.result)
}

# 调用：直接传入数据框内的变量名（无需引号）
example.function(my.data = test.df, my.y = test.y)

原理：{{my.y}}会捕获调用时传入的test.y符号，强制在my.data的环境中查找该变量，避免全局环境找不到变量的错误。

方法2：支持字符串输入的版本 #

如果需要接受字符串形式的变量名，用reformulate()动态构建公式对象：

example.function <- function(my.data, my.y){
  # 构建公式：response指定因变量，termlabels指定自变量
  formula_obj <- reformulate(termlabels = "test.x", response = my.y)
  my.result <- lm(data = my.data, formula = formula_obj) 
  return(my.result)
}

# 调用：传入字符串形式的变量名
example.function(my.data = test.df, my.y = "test.y")

原理：reformulate()会将字符串转换为合法的公式对象，避免直接拼接字符串导致的变量长度不匹配问题。

方法3：兼容两种输入方式（裸变量名+字符串） #

结合ensym()和as_string()，让函数同时支持两种输入格式：

example.function <- function(my.data, my.y){
  # 将输入统一转换为字符串格式
  y_var <- rlang::as_string(rlang::ensym(my.y))
  formula_obj <- reformulate(termlabels = "test.x", response = y_var)
  my.result <- lm(data = my.data, formula = formula_obj) 
  return(my.result)
}

# 两种调用方式均有效
example.function(my.data = test.df, my.y = test.y)
example.function(my.data = test.df, my.y = "test.y")

原理：ensym()可以同时接受符号或字符串输入，转换为符号后再转为字符串，确保reformulate()能正确构建公式。

错误原因解析 #

• 直接传裸变量名test.y时，函数默认在全局环境查找变量，但test.y仅存在于test.df中，因此报"object 'test.y' not found"。
• 传字符串"test.y"时，my.y ~ test.x会被解析为"test.y" ~ test.x，此时"test.y"是长度为1的常量，和长度为5的test.x不匹配，导致"variable lengths differ"错误。
• 之前使用enquo()时未将返回值赋值给变量，直接用!! my.y属于语法错误，正确用法是先捕获quosure再解引用。

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