如何在 R 的热图中添加水平分隔符.2

Question

使用以下代码：

library(gplots)
heatmap.2(as.matrix(mtcars),density.info="none",trace="none",Colv=FALSE,Rowv=FALSE,dendrogram="none",margin=c(10,10))

我可以创建热图。但我想做的是添加给定块的水平分隔符：

假设我有 3 个块定义为列表：

block1 <- c("Mazda RX4","Mazda RX4 Wag","Datsun 710","Hornet 4 Drive","Hornet Sportabout","Valiant","Duster 360","Merc 240D")
block2 <- c("Merc 230","Merc 280","Merc 280C","Merc 450SE","Merc 450SL","Merc 450SLC","Cadillac Fleetwood", "Lincoln Continental","Chrysler Imperial"  ,"Fiat 128","Honda Civic","Toyota Corolla","Toyota Corona","Dodge Challenger","AMC Javelin")
block3 <- c("Camaro Z28","Pontiac Firebird","Fiat X1-9","Porsche 914-2","Lotus Europa","Ford Pantera L","Ferrari Dino","Maserati Bora","Volvo 142E")

Answer 1

您可以在heatmap.2函数中使用参数rowsep（同样，如果您对添加垂直线感兴趣，可以使用参数colsep）。

在这里，您想在第 8 个值之后和第 23 个值之后进行分隔，这样您就可以：

heatmap.2(as.matrix(mtcars),
          density.info="none", 
          trace="none", 
          Colv=FALSE, 
          Rowv=FALSE, 
          dendrogram="none", 
          margin=c(10,10),
          # now the separations:
          rowsep=c(8, 23))

注意： 根据 block 向量检索水平线的位置，你可以做

which(row.names(mtcars)==block1[length(block1)]) # 8
which(row.names(mtcars)==block2[length(block2)]) # 23

如何在 R 的热图中添加水平分隔符.2

How to add horizontal separator in R's heatmap.2

plot

r

heatmap