Добавить цвет в фрейм данных

Question

Есть ли способ добавить цвет к ячейкам в фрейме данных. Например,

df
ColA   ColB
12     Pass
14     fail
12     Pass

Ожидаемый результат (ColB должен быть раскрашен. Если прошел, то зеленый, а затем красный)

Answer 1

Вот подход с пакетом gt:

library(dplyr)
library(gt)
library(scales)
df %>% 
  gt() %>%
  data_color(columns = 2, 
             colors = col_factor(palette = c("green","red"),
                                  domain = c("Pass","fail")))

Answer 2

Вариант с datatable:

library(tidyverse)
df <- tibble::tribble(
        ~ColA,  ~ColB,
          12L, "Pass",
          14L, "fail",
          12L, "Pass"
        )

library(DT)
datatable(df) %>% formatStyle(
  'ColB',
  backgroundColor = styleEqual(c("Pass", "fail"), c('red', 'green'))
)