R语言对ggplot图形进行拼接

我们在科研论文中，常常需要对图片进行拼接，有利于整合空间和能提供更多信息，能用于图片的软件很多。我们今天介绍一下使用R来进行图形拼接。

继续使用我们的汽车销售数据，我们先导入数据和R包

library(foreign)
library(ggplot2)
library(grid)
library(gridExtra)
bc <- read.spss("E:/r/test/tree_car.sav",
                use.value.labels=F, to.data.frame=T)

我们来看下数据（公众号回复：汽车销售，可以获得数据），car就是汽车售价，age是年龄，gender是性别，inccat是收入，这里分成4个等级，ed是教育程度。我们先用这个数据生成4张图片，等下好用来拼接。

p1 <- qplot(car, age, data = bc, colour =inccat)
p2 <- qplot(car, data = bc) + ggtitle("title")
p3 <- qplot(car, data = bc, geom = "dotplot")
p3 <- textGrob("hello")
p4 <-p1 + facet_wrap( ~ ed, nrow = 1) + theme(legend.position = "none") +
  ggtitle("facetted plot")

在一个页面上组合多个绘图的最简单方法是使用gridExtra包中的grid.arrange()函数，假设我们想把第一张和第二张进行拼接

grid.arrange(p1, p2, nrow = 1)

我们把4张图片进行拼接的时候，nrow函数控制显示的行数，

grid.arrange(p1, p2, p3,p4,nrow = 1)

grid.arrange(p1, p2, p3,p4,nrow = 2)

如不填入行数，grid.arrange函数就按默认的来拼图

grid.arrange(p1, p2, p3,p4)

如果我们需要给两张图片的边缘对齐对其

library(gtable)
g2 <- ggplotGrob(p2)
g3 <- ggplotGrob(p3)
g <- rbind(g2, g3, size = "first")
g$widths <- unit.pmax(g2$widths, g3$widths)
grid.newpage()
grid.draw(g)

为多张图片拼接的图形添加标题

grid.arrange(
  p1,
  p1,
  p1,
  nrow = 1,
  top = "Title of the page",
  bottom = textGrob(
    "this footnote is right-justified",
    gp = gpar(fontface = 3, fontsize = 9),
    hjust = 1,
    x = 1
  )
) 

对图形进行复杂的对齐
先生成两个图形

library(egg)
p1 <- ggplot(bc, aes(car, age, colour = factor(inccat))) +
  geom_point()+ theme_article() + theme(legend.position = 'top')

p2 <- ggplot(bc, aes(car, age, colour = factor(inccat))) +
  geom_point() + facet_wrap(~ inccat, ncol = 2, scales = "free") +
  guides(colour = "none") +
  theme_article()

把P1和P2拼接对齐

ggarrange(p1, p2, widths = c(1.5,2))

图片和表格进行拼接

grid.arrange(
  tableGrob(bc[1:10, 1:6]),
  p2,
  ncol = 2,
  widths = c(1.5, 2),
  clip = FALSE
)