RMarkdown/Quarto中kable单元格单独着色的版本兼容问题

版本变化原因 #

问题根源并非R版本本身，而是kableExtra包的版本更新。旧版kableExtra（对应R3.6.3的环境）仅对kable生成的HTML表格添加样式类，不会修改单元格内的内容，因此手动插入的HTML着色代码能正常渲染。而新版kableExtra为了实现更统一、灵活的样式控制，会重新解析表格内容，默认对HTML代码进行二次转义，导致原本的着色标签被当作纯文本显示。

解决办法 #

方法1：使用kableExtra官方推荐的cell_spec函数（首选） #

无需手动编写HTML，直接通过cell_spec函数为单元格设置样式，能避免转义问题，同时兼容所有kableExtra的样式设置：

library(knitr)
library(kableExtra)
library(dplyr)

# 示例数据
df <- data.frame(
  数值1 = c(-2, 5, -7),
  数值2 = c(3, -1, 4)
)

# 为每个单元格设置颜色
styled_df <- df %>%
  mutate(across(everything(), ~cell_spec(
    x = .,
    color = ifelse(. < 0, "red", "blue")
  )))

# 生成带样式的表格
kable(styled_df, escape = FALSE) %>%
  kable_styling(bootstrap_options = "striped")

方法2：保留手动HTML写法，用raw_html包裹代码 #

如果坚持手动编写HTML着色标签，可使用raw_html函数包裹代码，告知kableExtra不要转义这部分内容：

library(knitr)
library(kableExtra)
library(dplyr)

df <- data.frame(
  数值1 = c(-2, 5, -7),
  数值2 = c(3, -1, 4)
)

# 手动生成HTML并包裹
html_df <- df %>%
  mutate(across(everything(), ~ifelse(
    . < 0,
    raw_html(paste0("<span style='color:red'>", ., "</span>")),
    raw_html(paste0("<span style='color:blue'>", ., "</span>"))
  )))

kable(html_df, escape = FALSE) %>%
  kable_styling()

方法3：全局关闭自动转义（不推荐） #

通过设置全局选项关闭kableExtra的自动格式化行为，但可能影响其他表格的样式渲染：

options(kableExtra.auto_format = FALSE)

# 之后正常使用kable(escape=FALSE)和kable_styling
kable(df, escape = FALSE) %>%
  kable_styling()

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