在写论文或者报告的时候，肯定会不可避免的遇到编辑多图成一个图的情况。其实方法可以有很多，比方说最笨的办法用PPT自己手动拖移，再高级一点的用PS软件。但是都很繁琐(笔者惭愧的表示这些方法都用过)。仔细想想，好不容易用ggplot2画出了至少看上去高上大的图，到头来还是要靠PPT排版，是不是心里会有些不甘心呢。如果和我一样选择是的小伙伴，那请继续往下看文章，肯定可以给你带来不一样的体验。
本文使用到的包有gridExtra cowplot和ggpubr。
通过阅读本文你可以学会以下技能，把所组不一样的图，表，文字融合到一个页面中间。

1. 合并多图

1.1 制作独立的图

在此也是便于重复，使用程序自带的数据ToothGrowth和mtcars。

data("ToothGrowth")
head(ToothGrowth)
data("mtcars")
mtcars$name <- rownames(mtcars)
mtcars$cyl <- as.factor(mtcars$cyl)

画箱图，蜂巢图，棒状图，点图

bxp <- ggboxplot(ToothGrowth, x = "dose", y = "len",
                 color = "dose", palette = "jco")
bxp

dp <- ggdotplot(ToothGrowth, x = "dose", y = "len",
                color = "dose", palette = "jco", binwidth = 1)
dp

bp <- ggbarplot(mtcars, x = "name", y = "mpg",
                fill = "cyl",               # change fill color by cyl
                color = "white",            # Set bar border colors to white
                palette = "jco",            # jco journal color palett. see ?ggpar
                sort.val = "asc",           # Sort the value in ascending order
                sort.by.groups = TRUE,      # Sort inside each group
                x.text.angle = 90           # Rotate vertically x axis texts
)
bp + font("x.text", size = 8)

sp <- ggscatter(mtcars, x = "wt", y = "mpg",
                add = "reg.line",               # Add regression line
                conf.int = TRUE,                # Add confidence interval
                color = "cyl", palette = "jco", # Color by groups "cyl"
                shape = "cyl"                   # Change point shape by groups "cyl"
)+
  stat_cor(aes(color = cyl), label.x = 3)       # Add correlation coefficient
sp

最后用ggarrange()来整合这四张独立的图

ggarrange(bxp, dp, bp, sp + rremove("x.text"), 
          labels = c("A", "B", "C","D"),
          ncol = 2, nrow = 2)

用的缩小图，导致最后一张图的注释都凑到一起去了，原图没有问题，在此可以不用在意。

还可以添加文字对图进行注释

figure <- ggarrange(sp, bp + font("x.text", size = 10),
                    ncol = 1, nrow = 2)
annotate_figure(figure,
                top = text_grob("Visualizing mpg", color = "red", face = "bold", size = 14),
                bottom = text_grob("Data source: \n mtcars data set", color = "blue",
                                   hjust = 1, x = 1, face = "italic", size = 10),
                left = text_grob("use ggpubr", color = "green", rot = 90),
                right = ":-)!:-)!:-)!:-)!:-)!",
                fig.lab = "Figure 1", fig.lab.face = "bold")

当然还有第二部分，有兴趣的同学可以接着看R语言 ggplot2 多图排列 Part(2)