ggplot2 一页多图+共享图例

结果图：

ggpubr包提供了方便的一页多图方法，并且提供了方便的共享图例方法。

因为应用中，一个页面上多幅单一类型的图一般只需一个图例即可。

参照以下代码：

library(ggpubr)

dsamp <- diamonds[sample(nrow(diamonds), 1000), ]
p1 <- qplot(carat, price, data = dsamp, colour = clarity)
p2 <- qplot(cut, price, data = dsamp, colour = clarity)
p3 <- qplot(color, price, data = dsamp, colour = clarity)
p4 <- qplot(depth, price, data = dsamp, colour = clarity) 

ggarrange(p1, p2, p3, p4, ncol=2, nrow=2, common.legend = TRUE, legend="bottom")

结果如上图。