如何在Rmarkdown PDF中并排对齐表格并设置动态标题

问题分析 #

原代码存在两个核心问题：

• 表格标题未正确引用R变量（直接写了caption_text1而非实际变量值）
• 两个minipage宽度总和超过100%（.4\\linewidth + .8\\linewidth），导致无法并排

修正后的完整代码 #

---
title: "Caption"
output: pdf_document
params:
  runs: 
  - Late
  - Early
date: "`r Sys.Date()`"
---

library(kableExtra)
library(knitr)
library(rmarkdown)

k1 <- structure(list(year = c("2011", "2011", "2011", "2011", "2012", 
"2012", "2012", "2012"), race2 = c("Fall", "LateFall", "Spring", 
"Winter", "Fall", "LateFall", "Spring", "Winter"), total = c(67174, 
1395, 2720, 18126, 70213, 2448, 3590, 29537)), class = "data.frame", row.names = c(NA, 
-8L))

# 生成动态标题
caption_text1 <- paste("This table represents t1:", paste(params$runs, collapse = ", "))
caption_text2 <- paste("This table represents t2:", paste(params$runs, collapse = ", "))

# 生成LaTeX格式表格
t1 <- kbl(k1, booktabs = TRUE, format = 'latex', caption = FALSE) %>%
  kable_styling(latex_options = "hold_position")

t2 <- kbl(k1, booktabs = TRUE, format = 'latex', caption = FALSE) %>%
  kable_styling(latex_options = "hold_position")

# 构建并排表格的LaTeX代码，注意插入变量和调整宽度
cat(paste0("\\begin{table}[!htb]
  \\begin{minipage}{.45\\linewidth}
    \\centering
    \\caption{", caption_text1, "}
    \\vspace{3mm}
    ", t1, "
  \\end{minipage}%
  \\hfill
  \\begin{minipage}{.45\\linewidth}
    \\centering
    \\caption{", caption_text2, "}
    \\vspace{3mm}
    ", t2, "
  \\end{minipage}
\\end{table}"))

关键修正点 #

• 动态标题插入：使用paste0将caption_text1和caption_text2变量直接嵌入LaTeX字符串中，而非写死变量名
• 宽度调整：将两个minipage宽度改为.45\\linewidth，总和小于100%，并添加\\hfill实现自动对齐
• 表格样式优化：用kable_styling的hold_position选项确保表格位置符合预期
• 移除冗余代码：删除原代码中注释和不必要的空格，保持LaTeX代码整洁

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