r - 在 KableExtra 中插入列分隔符

Question

我使用 kableExtra 创建了下表。我正在寻找一种可以在 c 列和 d 列之间添加垂直边框的方法(以分隔两个标题下的内容。)此外，是否有一种方法可以更改整个列中单元格的颜色(让说第三列？)

library(dplyr)
library(kableExtra)

a <- c('First', 'Second', 'Third')
b <- c(1,2,3)
c <- c(4,5,6)
d <- c(7,8,9)
e <- c(10,11,12)

df <- data.frame(a,b,c,d,e)

kable(df) %>% 
  kable_styling() %>% 
  add_header_above(c("","Header 1" = 2, "Header 2" = 2), bold = T)

Answer 1

尝试:

kable(df) %>% 
  kable_styling() %>% 
  add_header_above(c("", "Header 1" = 2, "Header 2" = 2), bold = TRUE) %>% 
  column_spec(4, border_left = TRUE) %>% 
  column_spec(3, background = "lightgreen")