R热图结合条形图

Question

我正在尝试创建一个与条形图相结合的热图，以便在每一行的末尾都有一个长度与该行相关的条形图。这个想法是将以下两者合二为一：

library(gplots)
data(mtcars)
x  <- as.matrix(mtcars[,2:11])
hm<-heatmap(x)
barplot(mtcars[hm$rowInd,"mpg"],horiz=T,names.arg=row.names(mtcars)[hm$rowInd],las=2,cex.names=0.7,col="purple",2)

我的问题是如何在使行和条对齐的同时将两者结合起来？ 谢谢。

Answer 1

您不能合并这些图，因为（根据文档）heatmap() uses layout and draws the image in the lower right corner of a 2x2 layout. Consequentially, it can not be used in a multi column/row layout, i.e., when par(mfrow = *) or (mfcol = *) has been called.

最好的办法是使用 ggplot2 和 gridExtra 来组合图形。为此，需要使用 ggplot 创建热图和条形图。

你可以在ggplot2教程here找到热图。

一旦你有你的两个情节，使用以下命令将它们组合起来：

#Create the plots
g1 <- heatmap
g2 <- barplot

#Arrange them in a grid
gg1 <- ggplot_gtable(ggplot_build(g1))
gg2 <- ggplot_gtable(ggplot_build(g2))

grid.arrange(gg1, gg2, ncol=2)