r - 将函数参数传递给公式

Question

我试图理解为什么

foo = function(d,y,x) {
    fit = with(d, lm(y ~ x))
}
foo(myData, Y, X)

不起作用，例如在哪里

myData = data.frame(Y=rnorm(50), X=runif(50))

对我来说，棘手的一点是将参数 x 和 y 传递给公式，如 lm(y ~ x) .

Answer 1

@DMT 的回答很好地解释了发生的事情。

如果您希望事情按预期进行，则需要克服以下困难:

lmwrap <- function(d,y,x) {
    ys <- deparse(substitute(y))
    xs <- deparse(substitute(x))
    f <- reformulate(xs,response=ys)
    return(lm(f,data=d))
}
mydata <- data.frame(X=1:10,Y=rnorm(10))
lmwrap(mydata,Y, X)

或者，如果您将列名称作为字符串而不是符号传递，则可以稍微简化。

lmwrap <- function(d,y,x) {
    f <- reformulate(xs, response=ys)
    return(lm(f, data=d))
}
lmwrap(mydata, "Y", "X")

这种方法有点脆弱，例如如果您通过另一个函数传递参数。此外，让公式的“Call”部分读取 Y~X 需要更多技巧......