我正在尝试更改下表中各种标题的字体大小。
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”标题添加标题，而不必键入字符串？
先感谢您，
- 添加到表格顶部的最上面的分组行包括根据要求的动态标签；
- 添加到表顶部的以下分组行使用手动设置的标签。
感谢@Renehis post https://stackoverflow.com/questions/45206908/kableextra-dynamic-add-header-above-labeling如何使用动态标签对添加到表格顶部的行进行分组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)
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
