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

Question

我有这个由 sjPlot

创建的 table 列表

其中每个元素都包含一个 table 像这样

如果我想用 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)))
```

-输出

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

Save a list of sjPlot::tab_model tables ta on a word file or a RMarkdown file

r

save

r-markdown

word