如何在RMarkdown循环中居中flextable表格？

你遇到的问题是表格内部文本居中但表格整体容器左对齐——align(align = "center", part = "all")仅控制表格内容的对齐，无法改变表格本身在页面中的位置。以下两种方法可快速解决：

方法一：用HTML容器包裹表格 #

在输出表格前后添加居中对齐的<div>标签，直接将表格置于居中容器内：

修改循环部分代码：

for (i in 1:3) {
  
  cat('<center> <h1 style="font-size:80px;">', i, '</h1> </center> <br>')

  a <- overview_table(head(mtcars)[,1:4])
  
  # 添加居中容器包裹表格
  cat('<div style="text-align: center;">')
  flextable_to_rmd(a)
  cat('</div>')
  cat("<br>")
}

方法二：通过flextable自身配置实现居中（更优雅） #

直接在flextable的格式化流程中添加set_table_properties()，设置HTML层面的对齐属性，无需额外编写HTML标签：

修改overview_table函数：

overview_table <- function(df) {
  finalTable <- df %>%
  flextable() %>%
  set_header_labels(rowname = "") %>%
  theme_zebra() %>%
  bg(bg="#186183", part="body") %>%
  bg(bg="white", part="header") %>%
  color(part = "body", color = "white") %>%
  height(height = 0.4, part = "header") %>%
  padding(padding.top = 0,
          padding.bottom = 0) %>%
  fontsize(size = 20, part = "body") %>%
  fontsize(size = 18, part = "header") %>%
  align(align = "center", part = "all") %>%
  # 新增：设置表格在HTML中居中，同时开启自适应宽度
  set_table_properties(layout = "autofit", html = list(align = "center"))
  return(finalTable)
}

修改后循环部分无需改动，直接运行即可让表格整体居中。

补充说明 #

• flextable_html_dependency()无需手动调用，flextable_to_rmd()会自动加载必要的HTML依赖，保证表格样式正常渲染。
• layout = "autofit"可让表格根据内容自动调整宽度，避免过宽或过窄，优化显示效果。

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