在 R 中拼接图片

这里推荐一个很好用的 R 包 ，基于 ggplot 的拼图包 patchwork 。说它好用不光是说拼图拼的好，而是操作特别方便。

install.packages("patchwork") # 安装包
library(patchwork) # 载入包
library(ggplot2)
p1 <- ggplot(diamonds,mapping = aes(x=price))+
  geom_histogram(binwidth = 1)
p2 <- ggplot(diamonds,mapping = aes(x=price))+
  geom_histogram(binwidth = 10)
p3 <- ggplot(diamonds,mapping = aes(x=price))+
  geom_histogram(binwidth = 100)
p4 <- ggplot(diamonds,mapping = aes(x=price))+
  geom_histogram(binwidth = 1000)  # 画出p1,p2,p3,p4
(p1|p2)/(p3|p4) # 拼图开始
(p1/p2|p3)/p4  # 这里“+”或者“|”是表示在一行，“/”表示换行。