r - 迭代列表并追加以在 R 中进行回归

Question

我知道在某个地方会有这样的问题，但我找不到。我有变量 a, b, c, d 并且我想编写一个循环，以便我回归并附加变量并使用附加变量再次回归

lm(Y ~ a, data = data)，然后lm(Y ~ a + b, data = data)，然后

lm(Y ~ a + b + c, data = data) 等

你会怎么做？

Answer 1

使用 paste 和 as.formula，例如使用 mtcars 数据集:

myFits <- lapply(2:ncol(mtcars), function(i){
  x <- as.formula(paste("mpg", 
                        paste(colnames(mtcars)[2:i], collapse = "+"), 
                        sep = "~"))
  lm(formula = x, data = mtcars)
})

注意:看起来像是重复的帖子，我已经看到针对此类问题的更好解决方案，目前找不到。