将作为变量名的函数参数传递到 R 函数中的公式中？

Posted 2023-04-13

【中文标题】将作为变量名的函数参数传递到 R 函数中的公式中？

【英文标题】：Pass function arguments that are variable names into formulae in R functions?

【发布时间】：2016-06-29 10:02:49

【问题描述】：

我正在寻找一种简单的方法将作为变量名的函数参数传递到 R 函数中的公式中。

测试数据集：

set.seed(4892)
df.pass <- data.frame("alfa"=sample(1:9, 100, replace=T), "beta"=sample(1:9, 100, replace=T), 
                      "theta"=sample(1:9, 100, replace=T), "out"=runif(100, 0, 1))

示例分析（测试交互模型是否不同）要做成函数：

lrtest(glm(out~alfa*beta, family = binomial("logit"), df.pass),
       glm(out~alfa + beta, family = binomial("logit"), df.pass))

如果目标是创建通用函数 invinteract 以使用任意变量名称和数据集解决上述问题，那么将变量名称从 function() 参数传递到与位置对应的公式术语的最简单方法是什么out、alfa 和 beta？

将原始变量名称插入公式不起作用，因为 R 尝试将名称作为对象求值，但一无所获。

将字符串变量名直接插入公式也不起作用。

是否需要用paste()重构公式，还是有更直接的方法？

【参考方案1】：

glm 也接受字符串而不是公式。因此，您可以这样做：

mytest <- function(DF, y, x1, x2) 
  lrtest(glm(sprintf("%s ~ %s * %s", y, x1, x2), family = binomial("logit"), DF),
         glm(sprintf("%s ~ %s + %s", y, x1, x2), family = binomial("logit"), DF))

mytest(df.pass, "out", "alfa", "beta")

【讨论】：

谢谢！这是一个非常巧妙的解决方案。与一系列 paste() 使用相比，sprintf() 表示法非常干净