前面讲过优秀的patchwork，可以实现ggplot2里面花样百出的拼图。但它仅仅使用与ggplot2，如果确实需要将ggplot2的图和别的图拼到一起，它不太行。

library(ggplot2)
library(patchwork)
p <- ggplot(mtcars, aes(mpg, wt)) + geom_point()+theme_classic()
p

plot(iris[,1],iris[,4])

拼不了。

姜还是老的辣

搬出cowplot,recordPlot函数可以把画板上的图存下来，完美解决基础包画图不能赋值的问题。

library(cowplot)
p2 = recordPlot() 
plot_grid(p,p2)

如果是热图和ggplot2拼图

p3 = pheatmap::pheatmap(iris[,1:4])
p3

p+ggplotify::as.ggplot(p3)

妥。