循环上R中的列表索引

我不熟悉在R中使用列表，我尝试在不同的数据帧上运行一个循环，每个帧存储多个模型。我希望在列表的第一个索引中对应于给定数据帧的模型；e、 g.[i]][1]，[i]][2]。以下示例将覆盖该列表：

f1 <- data.frame(x = seq(1:6), y = sample(1:100, 6, replace = TRUE), z = rnorm(6))
f2 <- data.frame(x = seq(6,11), y = sample(1:100, 6, replace = TRUE), z = rnorm(6))

data.frames <- list(f1,f2)
fit <- list()

for(i in 1:length(data.frames)){
    fit[[i]] <- lm(y ~ x, data = data.frames[[i]])  
    fit[[i]] <- lm(y ~ x + z, data = data.frames[[i]])  
}

---

f1在应用于
数据的每个部分的单个
lappy
调用中计算两个模型。frames
列表
：

lapply(data.frames, function(i) {
  list(lm(y ~ x, data = i), 
       lm(y ~ x + z, data=i))
})