R 如何使用apply或lappy函数

我有数据列，希望使用WD作为自变量，E1-E14作为因变量，并对每个列进行回归，并将输出写入csv文件。请帮忙

这就是我所做的，但是它为所有列输出相同的结果。我认为mod变量设置不正确

mod <- function(y) lm(E1 ~ WD , data = data)
lapply(data[,5:16], mod) 

---

mod这可能是您想要的，但可能需要进行一些更改才能完全满足您的需要

df <- data.frame(WD = c(1,1,0,0,0,1,1,1,0,0),
                E1 = rnorm(10,0,1),
                E2 = rnorm(10,0,1))


mod <- function(x){

  lm(WD ~ x, data = df)


}

sapply(df[setdiff(names(df),"WD")],mod)

df请输入一些示例数据，告诉我们您在解决问题方面做了多少努力，以及您希望得到什么样的输出。您的
mod
函数不使用您在函数中传递的
y
值。您已经在回归中硬编码了变量。也许像这样的问题可以帮助：