如何在kable表格中间添加额外的列标题行？

要给kable表格添加额外的列标题行，直接用kableExtra包提供的add_header_above()函数就能实现，它支持合并列的分组标题，也能添加单层或多层的顶部标题。

核心实现代码 #

以下是基于你提供的代码修改后的完整示例，添加了一组跨列的上层标题：

library(kableExtra)

my_data <- mtcars[1:8, 1:6]
kable(my_data, booktabs = TRUE, align = "c", table.attr = "style='width:100%;'") %>%
  # 添加额外列标题行：命名向量的名字是标题文本，值为跨越的列数
  add_header_above(c("基础信息" = 1, "引擎参数" = 3, "传动性能" = 2)) %>%
  kable_styling(bootstrap_options = c("striped"), position = "center", full_width = FALSE) %>%
  group_rows("Set1", 1, 4) %>%
  group_rows("Set2", 5, 8)

参数说明 #

• add_header_above()的参数是一个命名向量：
  • 向量的名称就是你要显示的标题文本；
  • 向量的值代表该标题需要跨越的列数；
  • 所有值的总和必须等于表格的总列数（示例中1+3+2=6，对应mtcars的6列数据）。

扩展用法 #

1. 添加全列覆盖的总标题：如果需要一个标题覆盖所有列，直接设置对应列数即可：

add_header_above(c("车辆性能数据集" = 6))

2. 添加多层标题：多次调用add_header_above()可以叠加多层标题行：

add_header_above(c(" " = 1, "动力系统" = 5)) %>%
add_header_above(c("基础信息" =1, "引擎参数"=3, "传动性能"=2))

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