如何避免RMarkdown中表格列被拆分到两行（PDF输出）

问题场景 #

使用RMarkdown生成PDF时，包含12个月份列的统计表格被自动拆分为两行显示，即使调整字体大小（如\tiny）或页边距后页面仍有空白，表格依然拆分。需要强制表格保持单行显示，哪怕超出页边距范围。

解决方案 #

方法1：使用kableExtra包精准控制表格 #

kableExtra对PDF表格的排版支持更灵活，可通过固定列宽或强制位置实现单行显示：

# 先安装并加载包
install.packages("kableExtra")
library(kableExtra)

set.seed(84)
dt <- data.frame(month = rep(c(1:12), 10),
                 value = sample(c("A", "B", "C"), 120, replace = TRUE))
# 生成带边际的比例表格
tab <- addmargins(round(prop.table(table(dt$value, dt$month), 1)*100,2))

# 输出表格，固定列宽并强制位置，避免拆分
kable(tab, format = "latex", booktabs = TRUE) %>%
  kable_styling(latex_options = "hold_position") %>% # 固定表格位置
  column_spec(1:ncol(tab), width = "0.8cm") # 设置每列固定宽度，确保单行容纳

方法2：直接嵌入LaTeX代码强制不换行 #

如果不想依赖第三方包，可直接输出LaTeX表格代码，禁用自动换行逻辑：

set.seed(84)
dt <- data.frame(month = rep(c(1:12), 10),
                 value = sample(c("A", "B", "C"), 120, replace = TRUE))
tab <- addmargins(round(prop.table(table(dt$value, dt$month), 1)*100,2))

# 输出原生LaTeX表格，tabular格式设置为无额外间距的列布局
cat("\\begin{table}[H]
\\centering
\\begin{tabular}{@{}lcccccccccccc@{}}
\\toprule
", capture.output(print(tab, quote = FALSE)), "
\\bottomrule
\\end{tabular}
\\end{table}")

方法3：调整LaTeX全局设置允许表格溢出页边距 #

通过YAML头部引入LaTeX包，让表格可以超出页面宽度显示：

---
title: "Untitled"
author: "L"
date: "2025-03-13"
output: 
  pdf_document:
    extra_dependencies: ["adjustbox"]
header-includes:
  - \\usepackage{adjustbox}
---

然后在R代码中用adjustbox包裹表格，设置宽度超出页面：

library(knitr)
set.seed(84)
dt <- data.frame(month = rep(c(1:12), 10),
                 value = sample(c("A", "B", "C"), 120, replace = TRUE))
tab <- addmargins(round(prop.table(table(dt$value, dt$month), 1)*100,2))

# 让表格宽度为页面的1.2倍，强制单行显示
cat("\\adjustbox{width=1.2\\textwidth}{", kable(tab, format = "latex", booktabs = TRUE), "}")

原理说明 #

默认情况下，LaTeX会自动尝试让表格适应页面宽度，当列数过多时会拆分表格。上述方法通过固定列宽、禁用自动换行逻辑或允许表格溢出页边距三种方式，强制表格保持单行布局。

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