kableExtra：调整上面添加标题的字体和背景（）

在使用

kableExtra（）

生成的表格中，我想调整使用

add\u header\u over（）

添加的两个顶部行的字体和背景

下面提供的MWE允许对原始表格的顶行进行调整。 然而，我的目标是

• 添加的最上面一行有一个粗体字体和彩色背景，以及
• 添加的顶部下一行具有斜体字体

该表包含在Rmarkdown文档中，该文档编制为PDF/LaTex和HTML

MWE

---

在为手动添加的标题/分组行提供答案时，我发现了我自己问题的解决方案

add\u header\u over（）

实际上提供了许多参数来根据需要扭曲输出：

add_header_above(kable_input, header = NULL, bold = FALSE,
  italic = FALSE, monospace = FALSE, underline = FALSE,
  strikeout = FALSE, align = "c", color = NULL, background = NULL,
  font_size = NULL, angle = NULL, escape = TRUE, line = TRUE,
  line_sep = 3, extra_css = NULL, include_empty = FALSE)

说明性MWE：

vec <- c("Properties A", "Properties B")
mtcars[1:3,1:4] %>% kable() %>% 
  kable_styling() %>% 
  # 2nd. level of grouping rows added on top of the table
  add_header_above(
    c(" " = 1, 
      "Features" = 2, 
      "Features" = 2), 
    font_size = 15, italic = TRUE) %>%
  # 1st. level of grouping rows added on top of the table (with dynamic labels as requested)
  add_header_above(
    c(" " = 1, 
      setNames(2, vec[1]),
      setNames(2, vec[1])), 
    font_size = 25, bold = TRUE, color = "orange", background = "lightblue") %>% 
  # adjust font face and background
  row_spec(row = 0, italic = T) %>% 
  row_spec(row = 0, background = "orange")

vec%kable（）%%>%
kable_样式（）%>%
#第二。表顶部添加的分组行的级别
在上面添加标题(
c（“”=1，
“特征”=2，
“特征”=2），
字体大小=15，斜体=TRUE）%>%
#第一。表顶部添加的分组行级别（根据要求使用动态标签）
在上面添加标题(
c（“”=1，
集合名（2，vec[1]），
集合名（2，vec[1]），
font\u size=25，bold=TRUE，color=“橙色”，background=“浅蓝色”）%>%
#调整字体和背景
行规格（行=0，斜体=T）%>%
行规格（行=0，背景=“橙色”）

vec <- c("Properties A", "Properties B")
mtcars[1:3,1:4] %>% kable() %>% 
  kable_styling() %>% 
  # 2nd. level of grouping rows added on top of the table
  add_header_above(
    c(" " = 1, 
      "Features" = 2, 
      "Features" = 2), 
    font_size = 15, italic = TRUE) %>%
  # 1st. level of grouping rows added on top of the table (with dynamic labels as requested)
  add_header_above(
    c(" " = 1, 
      setNames(2, vec[1]),
      setNames(2, vec[1])), 
    font_size = 25, bold = TRUE, color = "orange", background = "lightblue") %>% 
  # adjust font face and background
  row_spec(row = 0, italic = T) %>% 
  row_spec(row = 0, background = "orange")