如何使用R的gt包为Class列按值设置单元格颜色？

问题背景 #

需要为Class列的不同值设置单元格颜色：instructor对应黑色，student对应绿色，之前的代码因类型不匹配报错：

Error in UseMethod("rescale") : 
no applicable method for 'rescale' applied to an object of class "character"

错误原因 #

原代码中错误地将Class列的内容替换成了颜色名称（字符型），同时使用了仅支持数值型数据的scales::col_numeric()做颜色映射，类型不匹配导致报错。此外，data_color()的作用是给单元格上色，无需修改原列的内容。

正确解决方案 #

方法1：自定义函数+条件判断 #

直接根据列值映射颜色，保留原数据内容：

library(gt)
library(dplyr)

df %>%
  gt() %>%
  data_color(
    columns = Class,
    colors = function(x) {
      case_when(
        x == "instructor" ~ "black",
        x == "student" ~ "green"
      )
    }
  )

方法2：使用分类变量专用的颜色映射函数 #

用scales::col_factor()适配分类变量，更符合gt包的使用逻辑：

library(gt)
library(scales)

df %>%
  gt() %>%
  data_color(
    columns = Class,
    colors = col_factor(
      palette = c("black", "green"),
      levels = c("instructor", "student")
    )
  )

注：levels参数指定分类值的顺序，确保颜色和值一一对应。

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