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

【问题标题】：plot the table with colorized cells in R用 R 中的彩色单元格绘制表格
【发布时间】：2018-09-25 05:22:32
【问题描述】：

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

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

对于这个问题的任何帮助将不胜感激。

【问题讨论】：

【解决方案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))

【讨论】：

非常感谢您的帮助。我仍然想用上面显示的表绘制同一张表。但目前还没有找到解决办法。