r - 如何在 R 中的一组不同的变量和模型上创建循环

Question

下面的代码首先为 mpg ~ disp 打印出 lm，然后为 mpg ~ disp + wt。我想在模型上创建另一个循环(请注意，第二个 lm 是我的个性化模型，为了简单起见，我们可以假设它是 lm)。我怎样才能遍历不同的模型？

data("mtcars")

formulas <- list(
  mpg ~ disp,
  mpg ~ disp + wt
)

    models <- list(lm, lm)
    
    res <- vector("list", length = length(formulas))
    
    for(i in seq_along(formulas)){
      res[[i]] <- lm(formulas[[i]], data = mtcars)
    
    }
    res
    
    or
    
    lapply(formulas, lm, data = mtcars)

Answer 1

你可以使用嵌套的lapply -

lapply(models, function(x) lapply(formulas, function(y) x(y, data = mtcars)))