更改knitr:：kable标题的背景颜色

我需要更改使用knitr:：kable打印的表格标题的背景色。我可以使用

kableExtra:：column\u spec

更改整个列的背景，但它不会影响标题行：

library(knitr)
library(kableExtra)

kable(data.frame(a = 1, b = 2)) %>% 
  column_spec(1, background = "yellow")

想要的结果： 一种

kable

输出，其中列

A

的标题具有黄色背景（表的其余部分为白色背景）

---

您可以使用

cell\u spec

执行此操作。比如说,

df <- data.frame(a = 1, b = 2)
names(df)[1] <- cell_spec(names(df)[1], background = "yellow")
kable(df, escape = FALSE)

将显示

另一种方法是将整个列（包括标题）设置为黄色，然后将非标题部分设置为继承的颜色。你是这样做的：

kable(df) %>% 
  column_spec(1, background = "yellow", include_thead = TRUE) %>%
  column_spec(1, background = "inherit")

这一个以凌乱的HTML结尾，但间距看起来更好一些：

kable(df) %>% 
  column_spec(1, background = "yellow", include_thead = TRUE) %>%
  column_spec(1, background = "inherit")

kable(data.frame(a = 1, b = 2)) %>% 
  row_spec(0, background = "yellow")