52

我已经看到了在各种 R 图形系统中制作的热图,包括像这样的 lattice 和 base:

在此处输入图像描述

我倾向于使用ggplot2一点,并希望能够制作一个带有相应单元格值的热图。这是热图和使用的尝试geom_text

library(reshape2, ggplot2)
dat <- matrix(rnorm(100, 3, 1), ncol=10)
names(dat) <- paste("X", 1:10)
dat2 <- melt(dat, id.var = "X1")
p1 <- ggplot(dat2, aes(as.factor(Var1), Var2, group=Var2)) +
    geom_tile(aes(fill = value)) +
    scale_fill_gradient(low = "white", high = "red") 
p1

#attempt
labs <- c(apply(round(dat[, -2], 1), 2, as.character))
p1 +  geom_text(aes(label=labs), size=1)

通常我可以计算出要传递的 x 和 y 值,但在这种情况下我不知道,因为此信息未存储在数据集中。如何将文本放在热图上?

4

2 回答 2

102

这已更新以符合 tidyverse 原则并改善 ggplot2 的不良使用

根据 SlowLeraner 的评论,我很容易做到这一点:

library(tidyverse)

## make data
dat <- matrix(rnorm(100, 3, 1), ncol=10)

## reshape data (tidy/tall form)
dat2 <- dat %>%
    tbl_df() %>%
    rownames_to_column('Var1') %>%
    gather(Var2, value, -Var1) %>%
    mutate(
        Var1 = factor(Var1, levels=1:10),
        Var2 = factor(gsub("V", "", Var2), levels=1:10)
    )

## plot data
ggplot(dat2, aes(Var1, Var2)) +
    geom_tile(aes(fill = value)) + 
    geom_text(aes(label = round(value, 1))) +
    scale_fill_gradient(low = "white", high = "red") 

在此处输入图像描述

于 2013-01-12T05:55:26.100 回答
10

还有另一种更简单的方法来制作带有值的热图。您可以使用pheatmap来执行此操作。

dat <- matrix(rnorm(100, 3, 1), ncol=10)
names(dat) <- paste("X", 1:10)
install.packages('pheatmap') # if not installed already
library(pheatmap)
pheatmap(dat, display_numbers = T)

这会给你一个这样的情节

带值的热图

如果您想删除集群并使用您的配色方案,您可以这样做

pheatmap(dat, display_numbers = T, color = colorRampPalette(c('white','red'))(100), cluster_rows = F, cluster_cols = F, fontsize_number = 15)

没有聚类和红白色的热图

您还可以更改显示数字的字体大小、格式和颜色。

于 2019-09-09T20:31:44.420 回答