kable的collapse_rows()和border 表格折叠和边框

请看下面的故事:

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;")

它看起来是这样的:

我有两个问题:

• 我想完全删除第1排和第2排之间的线.
• 我想要第二排下面的整条线.

我添加了红色和蓝色，只是为了显示正在发生的事情.

在使用collapse_rows()之后，row_spec()将列C2和C5的底部视为属于行1.

因此，当我编辑row_spec(1, ...)(见红色)时，我最终编辑的是不同行中的行. 与row_spec(2, ...)一样(见蓝色)，我不能编辑具有折叠行的列的行.

我试着用column_spec()，但也不太好用.例如,

column_spec(3, extra_css = "border-bottom: 2px solid brown;")个

向列C2和C3添加一行，

column_spec(4, extra_css = "border-bottom: 2px solid brown;")个

将行添加到不同的行，并

column_spec(5, extra_css = "border-bottom: 2px solid brown;")个

给出一个错误，而不是在C5下添加一行.

我本以为会是这样的:

我试图用border-bottom: none;go 掉红线部分，但这条线仍然可见.

如有任何帮助，请提前表示感谢.