我已经使用formattable包使用两种颜色创建单元格的条件格式设置（请参见下文）。但是我想使用三种颜色（红色，黄色，绿色），但是不确定如何做到这一点。甚至是某种颜色的光谱（使用RColorBrewer）。

library(tidyverse) 
library(kableExtra)
library(formattable) 

mtcars[1:5,1:4] %>% 
  mutate(car = row.names(.)) %>% 
  select(car,everything()) %>% 
  arrange(-mpg) %>% 
  mutate(mpg = color_tile("red","green")(mpg)) %>% 
  kable(escape = F) %>%
  kable_styling("hover",full_width = F)