对R中的多个数据框应用简单线性回归

# 加载所需的库
library(stats)

# 创建示例数据框
df1 <- data.frame(x = c(1, 2, 3, 4, 5), y = c(2, 4, 6, 8, 10))
df2 <- data.frame(x = c(2, 4, 6, 8, 10), y = c(3, 6, 9, 12, 15))

# 创建一个空的结果列表
results <- list()

# 循环遍历数据框
for (df in list(df1, df2)) {
  # 对每个数据框应用简单线性回归
  model <- lm(y ~ x, data = df)
  
  # 将结果添加到列表中
  results[[length(results) + 1]] <- model
}

# 获取第一个数据框的回归结果
result1 <- results[[1]]
summary(result1)

# 获取第二个数据框的回归结果
result2 <- results[[2]]
summary(result2)