rmarkdown：Word doc 中的 kable、xtable 或 tab_df 表

Question

---
output:
  word_document: default
---

```{r setup, include=FALSE}
data("mtcars")
library(tidyverse)
library(xtable)
library(sjPlot)
library(kableExtra)
```

```{r, results='asis'}
df <- mtcars %>% 
group_by(cyl) %>% 
summarise(disp = mean(disp), 
        wt = mean(wt), 
        n = n()
)
kable(df)

# tab_df(df)
# xtable(df) 
```    

我尝试过xtable、tab_df 和kable 来生成带有表格的word 文档。当“编织到 HTML 文档”时，所有表格看起来都很好。当“knit to Word”时，xtable 没有显示表格，而tab_df 和kable 生成了一个只有一列的表格：

kable(df) 
cyl
disp
wt
n
4
105.1364
2.285727

Answer 1

过去几天我对flextable 进行了相当多的试验，当您必须使用 Word 时，它可能是最好的选择：

---
output:
  word_document: default
---

```{r setup, include=FALSE}
data("mtcars")
library(tidyverse)
library(flextable)
```

```{r, results='asis'}
mtcars %>% 
group_by(cyl) %>% 
summarise(disp = mean(disp), 
        wt = mean(wt), 
        n = n()
) %>% 
  flextable() %>% 
  align(part = "all") %>% # left align
  set_caption(caption = "Table 1: Example") %>% 
  font(fontname = "Calibri (Body)", part = "all") %>% 
  fontsize(size = 10, part = "body") %>% 
  # add footer if you want
  # add_footer_row(values = "* p < 0.05. ** p < 0.01. *** p < 0.001.", 
  #                colwidths = 4) %>% 
  theme_booktabs() %>% # default theme
  autofit()

```