kable中collapse_rows()后边框设置异常求助：移除行间隔线并添加完整底行线

原代码 #

df <- data.frame(
  C1 = 1:2, 
  C2 = c("a", "a"), 
  C3 = 3:4, 
  C4 = 5:6, 
  C5 = c("b", "b"), 
  row.names = c("Row 1", "Row 2")
  )

df %>% 
  kable() %>%
  add_header_above(c("", "Group 1" = 2, "", "Group 2" = 2), 
                   extra_css = "border-bottom: 2px solid green;") %>%
  kable_styling(full_width = FALSE) %>%
  collapse_rows(columns = c(3, 6)) %>% 
  row_spec(0, extra_css = "border-bottom: 2px solid;") %>%
  row_spec(1, extra_css = "border-bottom: 1px solid red;") %>%
  row_spec(2, extra_css = "border-bottom: 2px solid blue;")

问题描述 #

• 使用collapse_rows()合并C2、C5列后，Row1与Row2之间的分隔线无法移除
• Row2下方无法添加贯穿所有列的完整底部边框
• row_spec()和column_spec()对合并列的边框控制失效，出现归属混乱或报错

解决方案 #

通过调整collapse_rows()参数并结合精准的行列样式控制，实现预期效果：

library(kableExtra)

df <- data.frame(
  C1 = 1:2, 
  C2 = c("a", "a"), 
  C3 = 3:4, 
  C4 = 5:6, 
  C5 = c("b", "b"), 
  row.names = c("Row 1", "Row 2")
)

df %>% 
  kable() %>%
  add_header_above(c("", "Group 1" = 2, "", "Group 2" = 2), 
                   extra_css = "border-bottom: 2px solid green;") %>%
  kable_styling(full_width = FALSE) %>%
  # 调整合并行布局，关闭默认边框
  collapse_rows(columns = c(3, 6), 
                row_group_label_position = "stack",
                valign = "middle",
                extra_css = "border-bottom: none;") %>% 
  row_spec(0, extra_css = "border-bottom: 2px solid;") %>%
  # 移除Row1底部边框，消除两行分隔线
  row_spec(1, extra_css = "border-bottom: none;") %>%
  # 为Row2普通列添加底部边框
  row_spec(2, extra_css = "border-bottom: 2px solid black;") %>%
  # 为合并列的最后一行补充底部边框，实现完整线条
  column_spec(3, row = 2, extra_css = "border-bottom: 2px solid black;") %>%
  column_spec(6, row = 2, extra_css = "border-bottom: 2px solid black;")

关键调整说明 #

1. collapse_rows()中设置row_group_label_position = "stack"，让合并行标签与内容堆叠避免结构混乱；同时用extra_css = "border-bottom: none;"关闭合并行自带边框
2. row_spec(1, ...)彻底清除Row1的底部边框，解决两行之间的分隔线问题
3. 结合row_spec(2)和column_spec()，分别为普通列和合并列的最后一行添加底部边框，实现贯穿所有列的完整线条

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