如何让kableExtra的collapse_rows函数分组合并行并添加分隔线？

要实现组内合并相同内容、组间添加全宽分隔线的效果，核心思路是给表格新增一个分组标识列，让collapse_rows()基于分组进行合并，之后隐藏分组列并添加组间分隔线。具体实现代码如下：

library(dplyr)
library(kableExtra)

EgTable <- array(dim = c(4, 4))

colnames(EgTable) <- c("Col 1", "Col 2", "Col 3", "Col 4")
rownames(EgTable) <- c("Row 1", "Row 2", "Row 3", "Row 4")

EgTable[1, ] <- c("A", "B", "C", "D")
EgTable[2, ] <- c("A", "b", "C", "D")
EgTable[3, ] <- c("A", "B", "C", "D")
EgTable[4, ] <- c("A", "b", "C", "D")

# 新增分组列，前两行划分为组1，后两行划分为组2
EgTable <- cbind(Group = c(1,1,2,2), EgTable)

knitr::kable(EgTable, format = "latex", booktabs = TRUE) %>%
  # 基于分组列（第1列）实现组内合并，指定需要合并的目标列
  collapse_rows(columns = 2:5, target = 1, row_group_label_position = "hidden") %>%
  # 将分组列宽度设为0，隐藏该列
  column_spec(1, width = "0pt") %>%
  # 在第一组最后一行后添加全宽分隔线
  row_spec(2, extra_latex_after = "\\midrule")

代码说明： #

• 新增分组列：通过cbind添加Group列手动指定分组范围，让collapse_rows()仅在同一分组内识别相同内容并合并，避免跨组合并。
• collapse_rows参数配置：target = 1指定以第1列的分组标识为合并依据，columns = 2:5明确需要合并的原表格列，row_group_label_position = "hidden"隐藏分组的标签文本。
• 隐藏分组列：用column_spec(1, width = "0pt")将分组列的宽度设为0，使其不在最终表格中显示。
• 添加组间分隔线：row_spec(2, extra_latex_after = "\\midrule")在第一组的最后一行后插入LaTeX全宽分隔线，实现组间的视觉分割。

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