有没有办法从r中的线性回归循环中获取输出表？

Question

我有来自 Vincent 的以下代码，原始问题：

https://stackoverflow.com/questions/64951015/how-to-run-all-possible-combinations-in-multiple-线性-regression-model-in-r

dat <- data.frame(
  Y = rnorm(100),
  X_1 = rnorm(100),
  X_2 = rnorm(100),
  X_3 = rnorm(100),
  X_4 = rnorm(100),
  X_5 = rnorm(100),
  X_6 = rnorm(100),
  X_7 = rnorm(100)
)

variables <- colnames(dat)[2:ncol(dat)]
formulas <- list()
for (i in seq_along(variables)) {
  tmp <- combn(variables, i)
  tmp <- apply(tmp, 2, paste, collapse="+")
  tmp <- paste0("Y~", tmp)
  formulas[[i]] <- tmp
}
formulas <- unlist(formulas)
formulas <- sapply(formulas, as.formula)

models <- lapply(formulas, lm, data=dat)

这段代码非常适合我的情况 - 我的问题是是否有办法将结果输出到一个简单的汇总表中，其中包含包含截距，斜率，r.squared，adj.rsquared，p值，AIC，每个回归的等？

lapply(models, summary)

给我我正在寻找的信息；我只是想要表格格式的。

谢谢

Answer 1

尝试

modelsummary::modelsummary(models)

：