如何在R中将多个模型存入列表并用于stargazer可视化

1. 把现有模型打包成列表 #

你可以直接用list()函数将已创建的model1到model5整合为一个列表：

List1 <- list(model1, model2, model3, model4, model5)

如果想让输出的表格里每个模型有明确标识，给列表元素命名会更清晰：

List1 <- list(
  "含Variable1的模型" = model1,
  "含Variable5的模型" = model2,
  "含Variable6的模型" = model3,
  "含Variable7的模型" = model4,
  "含Variable8的模型" = model5
)

2. 用stargazer批量展示模型 #

注意R语言区分大小写，你写的Stargazer会报错，正确函数名是小写的stargazer，直接传入列表即可：

# 输出文本格式的结果，也可指定type="html"或"latex"生成对应格式
stargazer(List1, type = "text")

额外优化：批量生成模型（可选） #

因为你的模型结构高度相似（仅核心自变量不同），可以用循环批量创建模型，避免重复代码：

# 定义所有要替换的核心自变量
core_vars <- c("Variable1", "Variable5", "Variable6", "Variable7", "Variable8")

# 循环生成模型并自动存入列表
List1 <- lapply(core_vars, function(var) {
  # 动态构建公式
  model_formula <- as.formula(paste("Dependent ~", var, "+ Variable2 + Variable3 + Variable4"))
  lm(model_formula, data = dataset)
})

# 给列表元素命名
names(List1) <- paste("模型", 1:5, "(含", core_vars, ")", sep = "")

# 调用stargazer展示
stargazer(List1, type = "text")

内容的提问来源于stack exchange，提问作者Buckethead