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