用R中的彩色单元格绘制表格

Question

我正在寻找在R环境中用颜色填充单元格的表格的方法。剂量有人知道如何在R中进行这种绘制，如下所示。

我可以使用ggplot2包获得类似的图，但是我无法扩展行和列的行。

对此问题的任何帮助将不胜感激。

Answer 1

对于R中的HTML表，我会坚持使用knitr::kable和kableExtra组合。您可以参考this online documentation并看下面的示例从文档中获取。

library(kableExtra)
library(formattable)

mtcars[1:5, 1:4] %>%
  mutate(
    car = row.names(.),
    mpg = color_tile("white", "orange")(mpg),
    cyl = cell_spec(cyl, angle = (1:5)*60, 
                    background = "red", color = "white", align = "center"),
    disp = ifelse(disp > 200,
                  cell_spec(disp, color = "red", bold = T),
                  cell_spec(disp, color = "green", italic = T)),
    hp = color_bar("lightgreen")(hp)
  ) %>%
  select(car, everything()) %>%
  kable(escape = F) %>%
  kable_styling("hover", full_width = F) %>%
  column_spec(5, width = "3cm") %>%
  add_header_above(c(" ", "Hello" = 2, "World" = 2))