如何在kableExtra中用pack_rows()带index调整分组表头的字号与对齐

因为pack_rows()本身不支持直接设置分组表头的样式，你可以用以下两种方法实现需求：

方法一：内联HTML样式定制单个分组标签 #

直接在构造分组索引时，给每个分组名称添加HTML样式标记，同时在pack_rows()中开启escape=F让样式生效：

library(kableExtra)
library(forcats)

# 给每个分组名称包裹带样式的HTML标签
group_labels <- table(fct_inorder(iris$Species))
names(group_labels) <- sapply(names(group_labels), function(name) {
  paste0('<span style="font-size:1.2em; text-align:center; display:block; font-weight:bold;">', name, '</span>')
})

kable(iris, escape = F) %>%
  pack_rows(index = group_labels, escape = F) %>%
  kable_styling(bootstrap_options = "striped", full_width = T, position = 'center') %>%
  row_spec(which(iris$Sepal.Length < 5), bold = T, background = "red")

这里通过font-size:1.2em放大字号，text-align:center和display:block确保文字居中，font-weight:bold可增强视觉层级（可选）。

方法二：全局CSS统一控制所有分组表头 #

如果所有分组表头都需要相同样式，直接添加自定义CSS更高效，无需逐个修改分组标签：

在你的R Markdown文档开头（比如YAML下方）添加以下CSS代码块：

<style>
/* 针对kableExtra生成的分组表头行 */
.table-group-divider th {
  font-size: 1.2em !important; /* 放大字号 */
  text-align: center !important; /* 居中对齐 */
  font-weight: bold; /* 可选：加粗突出 */
}
</style>

然后保留你原来的代码即可，CSS会自动应用到所有pack_rows()生成的分组表头：

library(kableExtra)
library(forcats)

kable(iris,escape = F)%>%
  pack_rows(index = table(fct_inorder(iris$Species)))%>%
  kable_styling(bootstrap_options = "striped", full_width = T, position = 'center')%>%
  row_spec(which(iris$Sepal.Length < 5), bold = T, background = "red")

注意：如果CSS样式不生效，添加!important可强制覆盖默认样式。

内容的提问来源于stack exchange，提问作者darth_chaos