如何在R中为mtcars表格内大于5的数值单独上色？

要实现仅为表格中大于5的数值（而非整个单元格）添加颜色，可以结合dplyr的数据处理能力和kableExtra的cell_spec函数，通过HTML样式标记目标数值。具体实现如下：

完整代码示例：

library(dplyr)
library(kableExtra)

# 预处理数据：为大于5的数值添加颜色样式
mtcars_colored <- mtcars %>%
  mutate(across(everything(), ~ ifelse(. > 5, cell_spec(., color = "red"), .)))

# 生成带样式的表格
knitr::kable(mtcars_colored, escape = FALSE) %>%  
  kableExtra::kable_styling(c("bordered","condensed"), font_size = 15, full_width = TRUE)

关键说明： #

• across(everything())：遍历数据框所有列，统一处理每个数值
• cell_spec(., color = "red")：将符合条件的数值转换为带红色字体样式的HTML文本，可修改color参数自定义颜色（比如十六进制色值#FF5733或颜色名称blue）
• escape = FALSE：必须设置该参数，否则kable会把HTML样式转义成纯文本，无法渲染出颜色效果

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