Я хочу добавить метки оси x и оси y для моей тепловой карты (используйте pheatmap), и я должен использовать сетку ( метки оси x и оси y в pheatmap в 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, чтобы получить тепловую карту, как это?
введите описание изображения здесь
последний вопрос: какую команду я должен использовать, чтобы сохранить это изображение