R Markdown渲染PDF时多个flextable表格不显示问题

核心原因 #

在R Markdown渲染PDF时，循环打印flextable列表却看不到表格，主要是两个关键点没处理好：

1. 普通print()无法触发knitr渲染：flextable属于需要knitr专门处理的自定义对象，直接在循环里用print(ft)不会让knitr捕获并转换为PDF可识别的格式。
2. 缺少必要的chunk选项：没有开启results='asis'，导致knitr无法正确解析flextable的渲染输出和手动添加的分页命令。

解决步骤 #

1. 先完成数据处理与flextable列表生成

library(tibble)
library(dplyr)
library(flextable)
library(knitr)

# 示例数据（替换为你的data）
data <- tibble(
  project = rep(c("A", "B", "C"), each = 5),
  val1 = rnorm(15),
  val2 = rnorm(15),
  val3 = rnorm(15)
)

# 按project计算val1-val3的均值并拆分
mean_by_project <- data %>%
  group_by(project) %>%
  summarise(across(val1:val3, mean, .names = "mean_{.col}")) %>%
  group_split()

# 转换为flextable列表
ft_list <- lapply(mean_by_project, function(df) {
  flextable(df) %>%
    set_caption(paste("项目", df$project[1])) %>%
    theme_booktabs()
})

2. 正确循环打印并分页

首先将代码块的选项设置为{r, results='asis'}，然后用knit_print()触发渲染：

for (ft in ft_list) {
  # 让knitr处理flextable的PDF渲染
  print(knit_print(ft))
  # 添加LaTeX分页命令，确保每页一个表格
  cat("\n\\pagebreak\n")
}

或者用purrr::walk更简洁地遍历：

library(purrr)
walk(ft_list, function(ft) {
  print(knit_print(ft))
  cat("\n\\pagebreak\n")
})

额外注意事项 #

• 确保代码块没有设置include=FALSE，否则会直接隐藏所有输出；
• 必须加载knitr和flextable包，否则knit_print()无法识别flextable对象；
• 如果不需要强制分页，可以去掉cat("\n\\pagebreak\n")这一行。

内容的提问来源于stack exchange，提问作者Homer Jay Simpson