有条件地为表 KableExtra() 中的行着色

Question

我想使用 kableExtra 有条件地用数据格式化表格。

让我们使用 iris 数据集作为代表。另外，假设我想根据物种为行着色。

这是我尝试使用的代码 - 文档中的一个示例：

iris %>% mutate(Species = cell_spec(Species, color = spec_color(1:10, option = "A"), link = "#",tooltip = paste0("Sepal Length: ", Sepal.Length))) %>% kable("html", escape = F, align = "c") %>% kable_styling("condensed", full_width = F)

但是，它不会根据物种对行进行着色。有人可以帮忙吗？

Answer 1

不确定spec_color 是正确的函数，来自文档： "spec_color 会将一个连续变量映射到任何 viridis 调色板。";

您希望将离散变量映射到所有变量。

这可能是一种方法：

（注意：如果你想给背景上色，用“背景”代替“颜色”。）

修改为包含 OP 的注释以控制颜色顺序。

library(kableExtra)
library(dplyr)

# make a minimal data frame:

iris1 <- 
  iris %>%
  group_by(Species) %>% 
  slice_head(n = 4) %>% 
  ungroup()

 iris1 %>% 
  mutate(across(everything(), ~cell_spec(.x, color = factor(iris1$Species, labels =  c("red", "green", "blue")),
                                         link = "#",
                                         tooltip = paste0("Sepal Length: ", Sepal.Length)))) %>%
   kable("html", escape = F, align = "c") %>% 
   kable_styling("condensed", full_width = F)

结果：

要控制颜色的顺序，请根据需要操作因子级别和标签，例如：

   iris1 %>% 
  mutate(across(everything(), ~cell_spec(.x, color = factor(iris1$Species, 
                                                            levels = c("versicolor", "setosa", "virginica"),
                                                            labels =  c("red", "green", "blue")),
                                         link = "#",
                                         tooltip = paste0("Sepal Length: ", Sepal.Length)))) %>% 
   kable("html", escape = F, align = "c") %>% 
   kable_styling("condensed", full_width = F)