cell_spe c для условных ячеек

Question

У меня есть таблица, которая в настоящее время выглядит следующим образом:

Я хочу сделать cell_spe c, что по существу следует следующим образом: если ячейка = X & Amount = 5, затем background = "yellow", если ячейка = X & Amount = 4, тогда background = "green"

et c для всех значений.

, чтобы выглядеть так:

Я посмотрел онлайн и не могу понять, как сделать эту работу.

Answer 1

Используя cell_spec, вы можете попробовать что-то вроде этого, предполагая, что датафрейм df:

library(kableExtra)
library(tidyverse)

df %>%
  mutate_all(~cell_spec(.x, background = case_when(.x == "X" & Amount == 5 ~ "yellow",
                                                   .x == "X" & Amount == 4 ~ "green",
                                                   .x == "X" & Amount == 3 ~ "blue",
                                                   .x == "X" & Amount == 2 ~ "purple",
                                                   .x == "X" & Amount == 1 ~ "grey",
                                                   TRUE ~ "white"))) %>%
  kable(escape = F) %>%
  kable_styling()