从 R 中的十六进制代码颜色 table 创建热图

Question

我有一个十六进制代码颜色table(my_table")，如下：

   V1     V2

1 #010000 #080000

2 #140004 #000000

3 #000000 #080000

4 #040000 #110000

5 #050000 #080004

6 #030000 #030000

7 #090000 #0B0000

8 #3A0010 #2D000D

9 #000000 #000000

我想在 R 中绘制为热图，在我的图中显示这些颜色。我试过了：

grid.raster(my_table, interpolate=FALSE)

它起作用了，但我还希望热图有标签、图例等，所以我想我会使用一个有更多选项的函数，比如 ggplot 来绘制我的热图。我找不到任何方法来使用 ggplot 将此十六进制代码矩阵绘制为颜色，有人知道解决方案吗？

Answer 1

要将数据框的一种“文字转录”转换为热图，您可以使用 scale_fill_identity。你的颜色有点暗，很难辨认，但绘制你的数据看起来像这样：

library(ggplot2)
library(dplyr)
library(tidyr)

my_table %>%
  tibble::rownames_to_column() %>%
  mutate(rowname = as.numeric(rowname)) %>%
  pivot_longer(-1) %>%
  ggplot(aes(x = name, y = rowname, fill = value)) +
  geom_tile(color = "gray50") +
  scale_fill_identity() +
  scale_x_discrete(position = "top") +
  scale_y_reverse(breaks = seq(nrow(my_table))) +
  coord_equal()

你说你想要图例，但不清楚图例实际显示什么，因为值是实际颜色，将十六进制字符串映射到图例中的颜色似乎没有什么意义。当然，除非您的数据结构实际上比您问题中的数据结构复杂一点。

数据

my_table <- structure(list(V1 = c("#010000", "#140004", "#000000", "#040000", 
"#050000", "#030000", "#090000", "#3A0010", "#000000"), V2 = c("#080000", 
"#000000", "#080000", "#110000", "#080004", "#030000", "#0B0000", 
"#2D000D", "#000000")), class = "data.frame", row.names = c("1", 
"2", "3", "4", "5", "6", "7", "8", "9"))

从 R 中的十六进制代码颜色 table 创建热图

Creating heatmap from hex code color table in R

rgb

r

raster

heatmap

ggplot2