如何为tibble表格中相同值的单元格统一设置背景色？

你的代码无效的核心原因是错误地将cell_spec直接链式调用在kbl()之后。cell_spec的作用是生成带样式的单元格内容（HTML/LaTeX代码），而非直接修改已生成的kable对象，且必须配合escape=FALSE才能让样式生效。

以下是两种可行的解决方案：

方法一：先处理数据框，再生成表格 #

先对数据框的数值列批量应用样式，再传入kbl生成表格：

library(tibble)
library(kableExtra)

# 定义值与背景色的映射关系
color_mapping <- c(
  "1" = "#FF0000",   # 红色
  "2" = "#FFA500",   # 橙色
  "3" = "#FFFF00",   # 黄色
  "4" = "#00FF00",   # 绿色
  "5" = "#0000FF",   # 蓝色
  "6" = "#800080"    # 紫色（补充值6的对应颜色）
)

# 批量处理F1到F6列，为每个单元格添加背景色样式
styled_df <- result_tibble %>%
  mutate(across(F1:F6, ~cell_spec(., background = color_mapping[as.character(.)])))

# 生成带样式的表格，必须设置escape=FALSE以保留HTML样式
styled_df %>%
  kbl(escape = FALSE) %>%
  row_spec(1, bold = TRUE)

方法二：在kbl后通过column_spec设置样式 #

直接在已生成的kable对象上，对指定列应用单元格样式：

library(tibble)
library(kableExtra)

color_mapping <- c(
  "1" = "#FF0000",
  "2" = "#FFA500",
  "3" = "#FFFF00",
  "4" = "#00FF00",
  "5" = "#0000FF",
  "6" = "#800080"
)

result_tibble %>%
  kbl() %>%
  row_spec(1, bold = TRUE) %>%
  # 对第2至第6列（对应F1到F6）应用样式
  column_spec(2:6, formatter = function(x) {
    cell_spec(x, background = color_mapping[as.character(x)])
  }) %>%
  kable_styling(escape = FALSE)

关键注意点： #

• 用字符类型作为color_mapping的键，避免数值类型匹配误差；
• escape=FALSE是必选项：它会阻止kable转义cell_spec生成的HTML标签，确保样式正常渲染；
• 若后续新增数值列，只需调整across或column_spec的列范围即可。

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