如何将kableExtra表格插入到RMarkdown输出的PowerPoint幻灯片中

kableExtra生成的样式表格本质是HTML代码，PowerPoint格式不支持直接解析HTML内容，所以哪怕开启always_allow_html: true也只是跳过报错，HTML表格不会被渲染到PPT里。另外你YAML配置中的参数拼写错误，正确参数为always_allow_html: true，而非always_use_html，但修正该参数也无法解决表格不显示的问题。

方案1：保留kableExtra样式，将表格转为图片插入 #

该方案可以100%还原你用kableExtra配置的所有样式，输出的表格清晰度可自由调整：

• 提前安装依赖包：install.packages(c("kableExtra", "webshot2"))
• 调整后的完整代码如下：

---
title: "Untitled"
output: powerpoint_presentation
---

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

表格 #

library(kableExtra)
library(webshot2)
data <- data.frame(a = c(1,2,3), b = c(4,5,6))

# 生成带样式的表格并转为临时图片
data %>% 
  kable() %>% 
  kable_styling(full_width = FALSE) %>% 
  save_kable(file = "temp_table.png", zoom = 3) # zoom参数控制图片清晰度，数值越大越清晰

# 插入生成的图片
knitr::include_graphics("temp_table.png")

# 可选：自动删除临时图片，不保留本地文件
file.remove("temp_table.png")

## 方案2：生成PPT原生可编辑表格，改用flextable包
如果需要生成可在PPT中直接编辑的表格，建议替换kableExtra为flextable包，该包与RMarkdown的PPT输出格式完全兼容，样式自定义能力和kableExtra相当：
- 提前安装依赖包：`install.packages(c("flextable", "magrittr"))`
- 调整后的表格代码示例：
```r
```{r table}
library(flextable)
data <- data.frame(a = c(1,2,3), b = c(4,5,6))

flextable(data) %>%
  theme_booktabs() %>% # 实现和kable默认一致的三线表效果
  autofit() # 自动适配列宽

你可以根据自己的需求调整flextable的边框、颜色、字体、对齐方式等样式，效果和kableExtra生成的表格一致，且生成的表格在PPT中可直接编辑修改。

内容的提问来源于stack exchange，提问作者Tanga94