如何为knitr::kables生成的子表格添加独立标题？

当使用knitr::kables()组合多个表格时，子表格的caption参数会被忽略，仅显示整体的总标题。要为每个子表格添加独立标题，最直接的方法是使用kables()自带的subcaptions参数，以下是具体实现：

基础解决方案 #

df1 = data.frame(id=1:3,name=letters[1:3])
df2 = data.frame(id=4:6,name=letters[4:6])

knitr::kables(
  list(
    knitr::kable(df1),
    knitr::kable(df2)
  ),
  caption = "Overall header",
  # 为每个子表格指定独立标题
  subcaptions = c("header1", "header2")
)

这段代码会让每个子表格顶部显示对应的独立标题，同时保留整体的总标题。

不同输出格式的注意事项 #

• PDF输出：需要在Rmarkdown的YAML配置中添加subcaption包依赖，否则子标题无法正常渲染：

  output:
    pdf_document:
      extra_dependencies: subcaption
  

• HTML输出：无需额外配置，子标题会自动显示在对应子表格上方，也可以在subcaptions中使用markdown语法自定义样式，比如：

  subcaptions = c("**加粗的header1**", "*斜体的header2*")
  

自定义样式进阶（可选） #

如果需要更精细的表格样式控制，可以结合kableExtra包调整表格外观，同时保留子标题：

library(kableExtra)

df1 = data.frame(id=1:3,name=letters[1:3])
df2 = data.frame(id=4:6,name=letters[4:6])

knitr::kables(
  list(
    knitr::kable(df1) %>% kable_styling(full_width = FALSE),
    knitr::kable(df2) %>% kable_styling(full_width = FALSE)
  ),
  caption = "Overall header",
  subcaptions = c("header1", "header2")
)

内容的提问来源于stack exchange，提问作者David M. Kaplan