我想为我的热图添加x轴和y轴标签（使用pheatmap），并且我已经使用了网格包（x axis and y axis labels in pheatmap in R），但是实验室和图形之间的差距很大，如何我可以修改我的代码，然后得到一个更好的数字。
##data and code
library(pheatmap)
library(grid)
## Generate some data
d <- matrix(rnorm(900), 30, 30)
colnames(d) = paste("bip", 1:30, sep = "")
rownames(d) = paste("blob", 1:30, 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,cluster_rows = F,cluster_cols = F,cellheight = 10,cellwidth = 10)
setHook("grid.newpage", NULL, "replace")
grid.text("xlabel example", y=0.1, gp=gpar(fontsize=16))
grid.text("ylabel example", x=0.1, rot=90, gp=gpar(fontsize=16))
[enter image description here][1]
我如何使用pheatmap包来获取像这样的热图？
最后一个问题是：我应该使用哪个命令来保存该图像
