转换为ggplot对象，调整右边距
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))
前：
后：
