模型中的单独页面中的多个表格

Question

软件包允许导出模型的摘要表来执行Word文档。但是，我想在不同页面上使用导出多个表。但是，当我使用新型号重复模型并选择相同的输出时，桌子就会被覆盖。我想知道是否有可能？

modelsummary

modelsummary(models1, 
             output = "table.docx")

modelsummary(models2, 
             output = "table.docx")

Answer 1

要为每个型号摘要添加一个单独的表，您可以使用{官员}这样的包：

modelsummary

使用

Named

模型列表（稍后将用于临时文件名称的名称）：

• library(modelsummary)
  library(officer)

创建一个空的DOC表示：

the_models <- list(
  m1 = lm(Sepal.Length ~ Species, iris),
  m2 = lm(Sepal.Length ~ Sepal.Width + Species, iris)
)

• cave一个（临时）DOCX文件每个型号摘要， 并将这些文件添加到主文档的表示形式（此处：
all_tables_doc <- read_docx()

）：

all_tables_doc

• （在上面的管道中，您可以进一步的元素toge page preaks或每张表格字幕。）

the结果为DOCX：

names(the_models) |>
  Map(f = \(name){
    file_name <- file.path(tempdir(), paste0(name,'.docx'))
    modelsummary(the_models[[name]], file_name)
    all_tables_doc <- all_tables_doc |>
      body_add_docx(file_name)
    name
  }) 

您可以做这样的事情：

print(all_tables_doc, 'all_tables.docx')