更改kableExtra表格标题的字体大小

Question

我正在尝试更改以下表格中各个标题的字体大小。

library(knitr)
library(kableExtra)
dt <- mtcars[1:5, 1:6]
kable(dt) %>%
kable_styling(c("striped", "bordered")) %>%
add_header_above(c(" ", "Group 1" = 2, "Group 2" = 2, "Group 3" = 2)) %>%
add_header_above(c(" ", "Group 4" = 4, "Group 5" = 2)) %>%
add_header_above(c(" ", "Group 6" = 6))

上述代码中表格的图像：

但是，我希望第6个组的标题要比第4和第5个组大得多，而且第1、2、3个组的大小再次变小。这可行吗？

此外，是否可以调用一个对象来为“Group6”标题命名，而不是必须键入字符串？

提前感谢您的帮助。

- Osgur McDermott Long

Answer 1

• 在表格顶部添加的最上层分组行包括所请求的动态标签；
• 在表格顶部添加的以下分组行使用手动设置的标签。

感谢@Rene的帖子，介绍了如何使用add_header_above()为在表格顶部添加的分组行使用动态标签。

vec <- c("Properties A", "Properties B")
mtcars[1:3,1:4] %>% kable() %>% 
  kable_styling() %>% 
  # 2nd. level of grouping rows: manual labels
  add_header_above(
    c(" " = 1, 
      "Features" = 2, 
      "Features" = 2), 
    font_size = 15) %>%
  # 1st. level of grouping rows: dynamic labels
  add_header_above(
    c(" " = 1, 
    setNames(2, vec[1]),
    setNames(2, vec[1])), 
    font_size = 25) 

- mavericks