如何使用R的gt包依据颜色列给指定表格列设置填充色？

问题背景 #

数据框包含数值列（如res1、res3）和对应的颜色列（如nm2、nm4），需要根据颜色列中的颜色名，为对应数值列的单元格设置填充色。示例数据如下：

id <- 1:10
res1 <- sample(1:20, 10)
nm2 <- 
  c("red",
    "purple",
    "green",
    "pink",
    "yellow",
    "darkred",
    "cyan",
    "black",
    "white",
    "yellow")
res3 <- sample(1:20, 10)
nm4 <- nm2

# Add NAs
res1[6] <- NA
nm2[6] <- "NA"
res3[4] <- NA
nm4[4] <- "NA"
df <- data.frame(id, res1, nm2, res3, nm4)

原尝试代码未达到预期效果：

df %>%
  gt() %>%
  tab_style(
    style = cell_fill("lightgrey"),
    locations = cells_body(rows = seq(1, nrow(df), by = 2))
  ) %>%
  data_color(
    columns = "res1",
    colors = "nm2"
  ) 

错误原因 #

1. data_color()函数的colors参数需要的是颜色映射规则（如函数、颜色向量），直接传入列名字符串"nm2"无法正确识别颜色值。
2. 数据中颜色列的"NA"是字符串类型，不是真正的缺失值，会导致后续颜色设置异常。
3. 原代码仅处理了res1列，未覆盖res3列的需求。

正确解决方案 #

步骤1：预处理数据，转换字符串"NA"为真正的缺失值 #

library(dplyr)
library(gt)

# 将颜色列中的"NA"字符串转为真正的NA
df <- df %>%
  mutate(across(c(nm2, nm4), ~ifelse(.x == "NA", NA_character_, .x)))

步骤2：构建gt表格，按颜色列设置填充色 #

df %>%
  gt() %>%
  # 奇偶行交替浅灰背景
  tab_style(
    style = cell_fill("lightgrey"),
    locations = cells_body(rows = seq(1, nrow(df), by = 2))
  ) %>%
  # 为res1列设置nm2指定的填充色，仅应用于非NA行
  tab_style(
    style = list(cell_fill(color = df$nm2)),
    locations = cells_body(columns = res1, rows = !is.na(df$res1))
  ) %>%
  # 为res3列设置nm4指定的填充色，仅应用于非NA行
  tab_style(
    style = list(cell_fill(color = df$nm4)),
    locations = cells_body(columns = res3, rows = !is.na(df$res3))
  ) %>%
  # 可选：隐藏不需要显示的颜色列
  cols_hide(columns = c(nm2, nm4))

代码说明 #

• 使用tab_style()替代data_color()，直接传入颜色列的向量值作为填充色，精准匹配每个单元格的颜色需求。
• 通过rows = !is.na(df$res1)确保仅给有有效数值的单元格设置填充色，避免缺失值单元格被错误上色。
• 预处理数据将字符串"NA"转为真实NA，让缺失值判断更准确。

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