将模型摘要()输出保存到Excel

Question

我有一份模特名单。模型摘要文档提到能够保存为https://cran.r-project.org/web/packages/modelsummary/modelsummary.pdf格式。我不能让它起作用。如果Excel不可能，是否还有另一种“电子表格”类型的格式？我希望能够在不同的行和列中简洁地注释我的输出并做笔记。Docx输出太笨重了。我意识到我可以输出为.html，然后打开并保存为Excel .但那是很多点击..。我有很多模特。

举个例子：

library(modelsummary)
models = list(
  "mpg" = lm(mpg ~ vs, data = mtcars),
  "am" = glm(am ~ vs, family = binomial, data = mtcars),
  "wt" = lm(wt ~ vs, data = mtcars)
    )

modelsummary(models, stars = TRUE, output = "models.xlsx")

然后抛出一个错误：

sanitize_output中的错误(输出)：output参数必须是默认的，gt，kableExtra，output，huxtable，html，jupyter，latex，latex_tabular，markdown，dataframe，data.frame，modelsummary_list，或具有以下扩展名之一的有效文件路径:html、tex、md、txt、docx、pptx、rtf、jpg、png

。

Answer 1

您可以输出到data.frame，然后将文件写入CSV (使用write.csv)或XLSX文件(使用openxls包)。Excel将能够以下列任何一种格式打开文件：

library(modelsummary)
library(openxlsx)

models = list(
  "mpg" = lm(mpg ~ vs, data = mtcars),
  "am" = glm(am ~ vs, family = binomial, data = mtcars),
  "wt" = lm(wt ~ vs, data = mtcars))

tab <- modelsummary(models, stars = TRUE, output = "data.frame")

write.csv(tab, "models.csv")

write.xlsx(tab, "models.xlsx")

编辑：

使用modelsummary的开发版本，现在可以这样做了：

modelsummary(models, output = "models.csv")
modelsummary(models, output = "models.xlsx")