将 sjPlot::tab_model 表的列表保存在 word 文件或 RMarkdown 文件中

Question

我有这个由 sjPlot 创建的表格列表

每个元素都包含这样的表格

如果我想用 RMarkdown 创建报告或将它们保存为 word 文件，我应该这样做吗？

Answer 1

一个选项是在块中指定results = 'asis'，同时使用knit_print

---
title: "Title"
output: html_document

---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

```{r, echo = FALSE}
suppressPackageStartupMessages(library(sjPlot))
suppressPackageStartupMessages(library(sjmisc))
suppressPackageStartupMessages(library(sjlabelled))
suppressPackageStartupMessages(library(purrr))

# sample data
data("efc")
efc <- as_factor(efc, c161sex, c172code)
```

## R Markdown

```{r data, echo = FALSE}

m1 <- lm(barthtot ~ c160age + c12hour + c161sex + c172code, data = efc)
m2 <- lm(neg_c_7 ~ c160age + c12hour + c161sex + e17age, data = efc)
lst1 <- list(tab_model(m1), tab_model(m2))
```

```{r model out, echo = FALSE, results = 'asis'}
for(i in seq_along(lst1)) cat(knitr::knit_print(lst1[[1]]))
# or use
#iwalk(lst1, ~ cat(knitr::knit_print(.x)))
```

-输出