R语言函数中如何调用以字符串传入的数据框变量名？

你的函数报错主要有两个原因：一是公式里用get()的方式不对，boxcox无法正确解析这种动态变量引用；二是你第二次修改的代码有语法错误（多了一个闭括号）。下面是修正后的解决方案：

修正后的函数 #

box_lambda = function(Valuename, data1){
  # 替换0为极小值，用[[确保提取的是向量
  data1[[Valuename]] <- ifelse(data1[[Valuename]] == 0, 0.000001, data1[[Valuename]])
  # 用reformulate动态创建公式，避免get()的环境问题
  formula <- reformulate(c("Age.Group", "Sex"), response = Valuename)
  b <- boxcox(formula, data = data1)
  lambda <- b$x[which.max(b$y)]
  return(lambda)
}

关键修改点 #

• 数据列提取：用data1[[Valuename]]替代data1[,Valuename]，这样能确保提取的是单个向量（而不是单列数据框），避免后续计算中出现类型不匹配的问题。
• 公式创建：使用reformulate()函数动态构建公式，把传入的字符串变量名直接作为响应变量，完全不需要get()，这是R中处理动态公式的标准方法，能避免环境解析错误。

替代方案（用字符串拼接公式） #

如果你更习惯字符串拼接的方式，也可以这样写：

box_lambda = function(Valuename, data1){
  data1[[Valuename]] <- ifelse(data1[[Valuename]] == 0, 0.000001, data1[[Valuename]])
  # 拼接公式字符串，再转为公式对象
  formula_str <- paste(Valuename, "~ Age.Group + Sex")
  b <- boxcox(as.formula(formula_str), data = data1)
  lambda <- b$x[which.max(b$y)]
  return(lambda)
}

示例用法 #

假设你的数据框data1包含Age.Group、Sex和名为BMI的数值列，调用函数：

lambda_result <- box_lambda("BMI", data1)
print(lambda_result)

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