R中pheatmap中的x轴和y轴标签

我真的很喜欢pheatmap包在R中创建非常好看的热图.但是,我试图将x和y轴标签添加到输出中(如果只是在plot()中,可以使用:xlab =’stuff’) .一个简单的例子如下.

require(pheatmap)

## Generate some data
d <- matrix(rnorm(25), 5, 5)
colnames(d) = paste("bip", 1:5, sep = "")
rownames(d) = paste("blob", 1:5, sep = "")

## Create the heatmap:
pheatmap(d)

以上产生以下热图:

我不能为我的生活弄清楚如何在这个情节中添加’xlab’或’ylab’.思考?

最佳答案
这里的主要问题是使用网格包的pheatmap每次调用时都会创建一个新的网格页面.我发现的解决方案是:

library(pheatmap)
library(grid)

## Generate some data
d <- matrix(rnorm(25), 5, 5)
colnames(d) = paste("bip", 1:5, sep = "")
rownames(d) = paste("blob", 1:5, sep = "")

## Create the heatmap:
setHook("grid.newpage", function() pushViewport(viewport(x=1,y=1,width=0.9, height=0.9, name="vp", just=c("right","top"))), action="prepend")
pheatmap(d)
setHook("grid.newpage", NULL, "replace")
grid.text("xlabel example", y=-0.07, gp=gpar(fontsize=16))
grid.text("ylabel example", x=-0.07, rot=90, gp=gpar(fontsize=16))

转载注明原文:R中pheatmap中的x轴和y轴标签 - 代码日志