如何在R中用kable创建含不同维度数据框的2×2分栏表格？

针对你需要将不同列数的数据框放入2行2列分栏表格、并添加独立标题和自定义尺寸的需求，以下分HTML和LaTeX/PDF两种格式给出可行方案：

HTML格式实现 #

利用kableExtra生成子表格后，结合HTML流式布局实现分栏，每个单元格独立放置带标题的子表格，支持自定义宽高：

library(kableExtra)
library(htmltools)

# 准备示例数据
df1 <- head(mtcars)
df2 <- head(iris)
df3 <- head(ChickWeight)
df4 <- head(airquality)

# 封装带标题的子表格生成逻辑
make_subtable <- function(df, title) {
  tagList(
    h4(title, style = "margin-bottom: 8px; font-weight: bold;"), # 子表格标题
    kable(df, format = "html") %>%
      kable_styling(bootstrap_options = "striped", full_width = FALSE) %>%
      column_spec(1:ncol(df), width = "auto") # 自动适配列宽，也可设固定值如"120px"
  )
}

# 构建2行2列布局，自定义单元格高度
combined_html <- tagList(
  div(class = "row",
      div(class = "col-md-6", style = "height: 320px; overflow-y: auto; padding: 10px;", make_subtable(df1, "汽车数据")),
      div(class = "col-md-6", style = "height: 320px; overflow-y: auto; padding: 10px;", make_subtable(df2, "鸢尾花数据"))
  ),
  div(class = "row", style = "margin-top: 15px;",
      div(class = "col-md-6", style = "height: 320px; overflow-y: auto; padding: 10px;", make_subtable(df3, "小鸡体重数据")),
      div(class = "col-md-6", style = "height: 320px; overflow-y: auto; padding: 10px;", make_subtable(df4, "空气质量数据"))
  )
)

# 导出为HTML文件
save_html(combined_html, "combined_table.html")

关键说明 #

• col-md-6实现每列占页面50%宽度，自动适配不同屏幕；
• height: 320px设置单元格高度，overflow-y: auto让内容超出时显示滚动条；
• full_width = FALSE避免子表格强制撑满容器，保留尺寸灵活性。

LaTeX/PDF格式实现 #

通过LaTeX的minipage环境创建分栏，每个单元格独立放置带标题的子表格，支持自定义宽高：

library(kableExtra)

# 准备示例数据
df1 <- head(mtcars)
df2 <- head(iris)
df3 <- head(ChickWeight)
df4 <- head(airquality)

# 封装带标题的LaTeX子表格生成逻辑
make_latex_subtable <- function(df, title, width = "0.48\\linewidth") {
  paste0(
    "\\begin{minipage}[t]{", width, "}\n",
    "\\textbf{", title, "}\n\\vspace{6pt}\n",
    kable(df, format = "latex", booktabs = TRUE) %>%
      kable_styling(latex_options = "striped") %>%
      column_spec(1:ncol(df), width = "auto") %>%
      as.character(),
    "\n\\end{minipage}"
  )
}

# 组合成2行2列布局
combined_latex <- paste0(
  make_latex_subtable(df1, "汽车数据"), " \\hfill ",
  make_latex_subtable(df2, "鸢尾花数据"), "\n\\vspace{12pt}\n",
  make_latex_subtable(df3, "小鸡体重数据"), " \\hfill ",
  make_latex_subtable(df4, "空气质量数据")
)

# 导出为LaTeX文件，或在RMarkdown中直接使用
cat(combined_latex, file = "combined_table.tex")

关键说明 #

• 0.48\\linewidth设置每个单元格占页面宽度的48%，\\hfill实现两列对齐；
• \\vspace调整行与行、标题与表格的间距；
• 在RMarkdown中，可直接将combined_latex用cat()输出，编译即可生成PDF格式的分栏表格。

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