如何在KableExtra中用str_wrap实现列名换行及表头着色

一、实现列名在组件编号后换行 #

针对wide.df的长列名，无需转长格式或自定义复杂函数，直接通过正则表达式替换指定位置插入换行符，配合kable的渲染设置即可解决：

library(dplyr)
library(kableExtra)
library(stringr)

# 处理列名：在"Component X - "后插入换行符
colnames(wide.df) <- str_replace(colnames(wide.df), 
                                 "(Component \\d+ - )", 
                                 "\\1\n")

# 生成表格时启用换行解析（escape=FALSE允许识别换行符）
wide.df %>%
  kable(escape = FALSE, align = "c") %>%
  kable_styling()

如果需要更灵活的换行宽度控制，也可以用str_wrap配合正则定位：

colnames(wide.df) <- str_wrap(colnames(wide.df), 
                              width = 1, 
                              indent = str_locate(colnames(wide.df), " - ")[,2] + 1)

二、为Letter列上方的表头着色 #

在add_header_above中直接为目标表头设置背景样式，无需使用占位符。分两种场景处理：

1. 直接指定背景色参数 #

wide.df %>%
  kable(escape = FALSE, align = "c") %>%
  kable_styling() %>%
  add_header_above(
    header = c(
      "基础信息" = 2,
      "Letter" = 1,
      "成绩数据" = 4
    ),
    # 按表头顺序对应设置背景色，未指定的用默认白色
    background = c("white", "#2196F3", "white"),
    color = "white" # 可选：设置表头文字颜色为白色，增强对比度
  )

2. 用cell_spec自定义复杂样式 #

如果需要更多样式（如边框、字体大小），可以用cell_spec包装表头文本：

wide.df %>%
  kable(escape = FALSE, align = "c") %>%
  kable_styling() %>%
  add_header_above(
    header = c(
      "基础信息" = 2,
      cell_spec("Letter", background = "#2196F3", color = "white", bold = TRUE) = 1,
      "成绩数据" = 4
    ),
    escape = FALSE # 必须启用，否则cell_spec生成的HTML会被转义
  )

注意：若输出为PDF格式，需将换行符替换为\\newline，样式设置需适配LaTeX语法（比如用latex_cell_spec替代cell_spec）。

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