1. 解決問題

??在進行多圖繪制的時候，用cowplot::plot_grid函數進行多圖組合，結果在多圖組合的時候，別的ggplot畫圖的對象沒有任何問題，但是pheatmap的出現問題，并拋出如下警告信息：

p4<-cowplot::plot_grid(p1, p2, p3, ncol=1, labels=LETTERS[1:3])
Warning message:
In as_grob.default(plot) :
  Cannot convert object of class pheatmap into a grob.

2. 解決方法

??通過一系列的查詢報錯原因，終于找到了問題的原因，原來cowplot::plot_grid多圖組合的話，必須得是ggplot對象，而pheatmap不是ggplot對象，因此才會出現此問題。并且找到了相應的解決方法解決方法：

library(pheatmap)
test <- matrix(rnorm(200), 20, 10)
mfs <- mfs_ma <- mfs_fe <- pheatmap(test)
cowplot::plot_grid(mfs$gtable, mfs_ma$gtable, mfs_fe$gtable,
                   ncol= 3, labels=LETTERS[1:3])

pheatmap組合圖示例結果圖

??到此，pheatmap多圖組合報錯問題得到解決，后續(xù)如果需要不同的圖組合，可以很方便的組合一起，

cowplot::plot_grid(p1, p2,p3$gtable,ncol= 3, labels=LETTERS[1:3])
#這里的p3為pheatmap畫圖的對象

參考鏈接

Put many heatmap images in one single slide

2021年1月4日