使用knitr::kable生成PDF时表格标题对齐不一致问题求助

问题根源 #

标题对齐不一致的核心原因是threeparttable与longtable的LaTeX排版规则冲突，加上默认表格标题的对齐逻辑受文档全局设置影响，导致不同表格的标题位置出现偏差。

修复方案（基于kable/kableExtra） #

步骤1：全局设置LaTeX标题对齐 #

在RMarkdown文档的YAML头部添加LaTeX包配置，强制所有表格标题左对齐：

---
title: "Your Document Title"
output:
  pdf_document:
    keep_tex: true
header-includes:
  - \usepackage{caption}
  - \captionsetup[table]{singlelinecheck=false, justification=raggedright}
---

• singlelinecheck=false：禁用单行标题自动居中的默认规则
• justification=raggedright：强制标题左对齐

步骤2：调整表格格式化函数 #

简化参数组合，避免排版冲突，同时确保表格本身左对齐：

default_kable <- function(data, caption) {
  knitr::kable(
    data, 
    digits = 2, 
    caption = caption, 
    format = "latex", 
    booktabs = TRUE, 
    align = "l", 
    centering = FALSE,
    longtable = TRUE
  ) %>%
    kable_styling(
      full_width = FALSE, 
      position = "left", 
      latex_options = c("hold_position", "repeat_header")
    )
}

• 移除threeparttable参数：若无需表格脚注，可直接去掉该选项以减少排版冲突
• 将longtable移至kable()参数中，避免与kable_styling的选项重复触发逻辑冲突

演示示例（基于mtcars数据集） #

# 截取mtcars前5行数据
sample_df <- head(mtcars, 5)
# 调用格式化函数
default_kable(sample_df, "Sample mtcars Dataset (First 5 Rows)")

替代高效方案：使用gt包 #

如果需要更灵活的表格样式控制，gt包对PDF输出的标题对齐支持更直观，无需额外LaTeX配置：

library(gt)

default_gt <- function(data, caption) {
  gt(data) %>%
    fmt_number(columns = everything(), decimals = 2) %>%
    tab_header(title = caption) %>%
    tab_options(
      table.align = "left",
      heading.align = "left",
      table.width = pct(50)
    )
}

# 演示调用
default_gt(sample_df, "Sample mtcars Dataset via gt")

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