这里有几个可能的解决方案，分别针对html和pdf。

html版本

html版本第一，因为这似乎是你正在使用的方法：

---
output: html_document
---

```{r packages, warning=FALSE, message=FALSE}

library(kableExtra)
library(forcats)
library(dplyr)

iris1 <-
  iris |> 
  group_by(Species) |> 
  slice_head(n = 5)
  
kable(iris1[,-5],
      format = "html")|>
  kable_styling(bootstrap_options = "striped", 
                full_width = TRUE, 
                position = 'center') |> 
  row_spec(which(iris1$Sepal.Length < 5), 
           bold = TRUE,
           background = "red") |>
  pack_rows(index = table(fct_inorder(iris1$Species)),
            label_row_css = "font-size: 30px; text-align: center;")

字符串
html输出（放大字体大小以获得效果）：

![](https://i.stack.imgur.com/TlFg7.png)
的数据

## pdf版本

这需要将组标题预先格式化为具有选定字体大小的LaTeX。我刚刚使用了具有相对字体大小的典型LaTeX方法。可以使用其他LaTeX包添加精确的大小。

output: pdf_document

library(kableExtra)
library(forcats)
library(dplyr)

iris1 <-
  iris |> 
  group_by(Species) |> 
  slice_head(n = 5) |> 
  mutate(Species = paste0(paste("\\\\begin{LARGE}", Species, "\\\\end{LARGE}")))
  
kable(iris1[,-5],
      format = "latex",
      booktabs = TRUE)|>
  row_spec(which(iris1$Sepal.Length < 5), 
           bold = TRUE,
           background = "red") |>
  pack_rows(index = table(fct_inorder(iris1$Species)),
            latex_align = "c",
            escape = FALSE)

型
pdf输出：

![](https://i.stack.imgur.com/Dj53s.png)
的