r - 带有 pheatmap 的多面板图

Question

我正在尝试使用 layout 绘制多面板图，其中一个面板是热图放置地块。我一直在用 pheatmap 绘制热图它提供了一个非常方便的配色方案等等。
pheatmap的代码有货 here .

当我尝试使用 pheatmap通过这种方式，它总是在新页面上绘制。我想这是因为它使用了 grid包裹？有没有办法用 pheatmap 做到这一点？ ?

在条形图旁边生成热图的示例代码，但由于热图绘制在下面的新页面上，因此不会:

xlay=layout( matrix(c(2,2,1),nrow=1) )
layout.show(xlay)
barplot(rnorm(8),horiz=T)
pheatmap(matrix(rnorm(80),nrow=8))

Answer 1

在 ggplot 中制作条形图

bar <- ggplot()  

将条形图和热图都分配给一个变量

heat <- pheatmap(matrix(rnorm(80),nrow=8))

然后使用 gridExtra用于制作面板图的包，热图保存为对象，您可以通过评估对象中的第 4 个项目再次绘制它

grid.arrange(bar, heat[[4]], nrow = 1)