ggplot 中用圆圈代替图块的热图
Heatmap with circles instead of tiles in ggplot
如果我有一个整数向量(或者如果我将它放入一个矩阵),是否可以使用 ggplot 或其他可以将每个点作为圆而不是图块的包来绘制热图?
> counts
[1] 1949 1690 1935 2480 1441 1141 2079 1587 517 1028 535 2180 1692 3916 1784
[16] 3028 1911 1329 1759 1478 1080 2835 2187 3230 2932 3527 1538 1489 1493 1170
[31] 3311 4982 4842 4899 1339 3594 2562 1821 1077 1072 4312 3395 3522 1037 3270
[46] 4813 1686 1955 3290 1288 2592 3717 213 2840 3938 3882 1807 1582 2519 2600
[61] 4093 2318 3028 3074 1833 3453 2539 2665 2491 2696 2819 1177 1707 1832 3223
[76] 2366 3742 2648 1594 2112 2239 2840 414 1094 2621 3116 1939 2847 1781 1054
[91] 1098 1977 1061 2441 2367 723 1126 2550 586 515
它看起来像这样(排列在 x 乘 y 矩阵中):
如果无论缩放如何都希望圆圈相互接触,ggforce::geom_circles
可能会有所帮助:
z <- runif(100, 0, 5000)
library(dplyr); library(ggplot2)
data.frame(z = z) %>%
mutate(row = (row_number() - 1) %/% 10 + 1,
col = (row_number() - 1) %% 10 + 1) %>%
ggplot() +
ggforce::geom_circle(aes(x0 = col, y0 = row, fill = z, r = 0.5)) +
scale_y_reverse() +
scale_fill_gradient(low = "yellow", high = "red", breaks = 1000*(0:6)) +
guides(fill = guide_colorsteps(barwidth = 0.3, barheight = 17)) +
coord_equal(clip = "off") +
theme_void()
如果我有一个整数向量(或者如果我将它放入一个矩阵),是否可以使用 ggplot 或其他可以将每个点作为圆而不是图块的包来绘制热图?
> counts
[1] 1949 1690 1935 2480 1441 1141 2079 1587 517 1028 535 2180 1692 3916 1784
[16] 3028 1911 1329 1759 1478 1080 2835 2187 3230 2932 3527 1538 1489 1493 1170
[31] 3311 4982 4842 4899 1339 3594 2562 1821 1077 1072 4312 3395 3522 1037 3270
[46] 4813 1686 1955 3290 1288 2592 3717 213 2840 3938 3882 1807 1582 2519 2600
[61] 4093 2318 3028 3074 1833 3453 2539 2665 2491 2696 2819 1177 1707 1832 3223
[76] 2366 3742 2648 1594 2112 2239 2840 414 1094 2621 3116 1939 2847 1781 1054
[91] 1098 1977 1061 2441 2367 723 1126 2550 586 515
它看起来像这样(排列在 x 乘 y 矩阵中):
如果无论缩放如何都希望圆圈相互接触,ggforce::geom_circles
可能会有所帮助:
z <- runif(100, 0, 5000)
library(dplyr); library(ggplot2)
data.frame(z = z) %>%
mutate(row = (row_number() - 1) %/% 10 + 1,
col = (row_number() - 1) %% 10 + 1) %>%
ggplot() +
ggforce::geom_circle(aes(x0 = col, y0 = row, fill = z, r = 0.5)) +
scale_y_reverse() +
scale_fill_gradient(low = "yellow", high = "red", breaks = 1000*(0:6)) +
guides(fill = guide_colorsteps(barwidth = 0.3, barheight = 17)) +
coord_equal(clip = "off") +
theme_void()