我真的很喜欢该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
使用grid
包的每次调用都会创建一个新的网格页面。我找到的解决方案是:
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))
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句