轉(zhuǎn)換為ggplot對(duì)象,調(diào)整右邊距
p <- pheatmap(...)
loadp(ggplotify)
as.ggplot(p) + theme(plot.margin = margin(l = 5, r = 10)) +
labs(title = "lncRNA heatmap") +
theme(plot.title = element_text(color = "black", size = 20, face = "bold", hjust = 0.4))
前:

后:
