如何在Rmarkdown的PDF输出中拆分knitr表格为多列？

方法1：用kableExtra结合LaTeX分栏环境 #

借助LaTeX的multicol包和kableExtra的样式控制，自动将长表格拆分为多栏排列。

1. 先安装依赖包：

install.packages(c("knitr", "kableExtra"))

2. 在R Markdown的YAML头部加载multicol包：

output:
  pdf_document:
    extra_dependencies: ["multicol"]

3. 代码块中实现分栏表格：

library(knitr)
library(kableExtra)

# 生成示例数据（替换为你的实际数据）
df <- data.frame(Col1 = paste0("Item ", 1:120), Col2 = rnorm(120))

# 启动2栏分栏环境
cat("\\begin{multicols}{2}")
kable(df, "latex", booktabs = TRUE) %>%
  kable_styling(latex_options = c("striped", "scale_down"))  # scale_down确保表格适配栏宽
cat("\\end{multicols}")

LaTeX会自动将长表格拆分到两栏中，超出当前栏的内容会自动流入下一栏。

方法2：手动拆分数据框并排输出 #

如果需要精准控制每个子表格的行数，可手动拆分数据后用LaTeXminipage实现并排布局。

library(knitr)
library(kableExtra)

df <- data.frame(Col1 = paste0("Item ", 1:120), Col2 = rnorm(120))

# 将数据拆分为6个20行的子表格（可根据需求调整行数）
split_dfs <- split(df, ceiling(seq_along(df$Col1)/20))

# 循环输出子表格，用minipage控制宽度
for (i in seq_along(split_dfs)) {
  cat("\\begin{minipage}{0.48\\linewidth}")
  kable(split_dfs[[i]], "latex", booktabs = TRUE, caption = paste("表格部分", i)) %>%
    kable_styling(latex_options = "striped")
  cat("\\end{minipage}\\hfill")
  # 每2个表格后换行并添加间距
  if (i %% 2 == 0) cat("\\newline\\vspace{0.5cm}")
}

这种方式可以自定义每个子块的行数和排列规则，适合需要分块展示的场景。

注意事项 #

• 确保R Markdown输出格式为pdf_document，所有方案依赖LaTeX环境。
• scale_down参数会自动缩放表格以适配栏宽，避免内容溢出。
• 若表格内容过多，LaTeX会自动处理分页，保持分栏布局。

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