用R来拼图和排版，告别AI和PS(三)：添加注释信息

#安装patchwork包，注意这里一定要安装v1.1.0版本的patchwork包
#否则在后面自定义标号类型的时候会报错
devtools::install_github("thomasp85/patchwork@v1.1.0")

#加载ggplot2和patchwork
library(ggplot2)
library(patchwork)

#图A 散点图
p1 <- ggplot(mtcars) + 
  geom_point(aes(mpg, disp)) + 
  ggtitle('plot1')

#图B 箱型图
p2 <- ggplot(mtcars) + 
  geom_boxplot(aes(gear, disp, group = gear)) + 
  ggtitle('plot2')

#图C 拟合曲线
p3 <- ggplot(mtcars) + 
  geom_smooth(aes(hp, wt)) +
  ggtitle('plot3')

patchwork <- (p1 + p2) / p3
patchwork + plot_annotation(
  #主标题
  title = 'The surprising truth about mtcars',
  #次标题
  subtitle = 'These 3 plots will reveal yet-untold secrets about our beloved data-set',
  #说明文字
  caption = 'Disclaimer: None of these plots are insightful'
)

#改变标题字体为mono
patchwork + 
  plot_annotation(title = 'The surprising truth about mtcars') & 
  theme(text = element_text('mono'))

#改变标题字体大小为28
patchwork + 
  plot_annotation(title = 'The surprising truth about mtcars',
                  theme = theme(plot.title = element_text(size = 28))) & 
  theme(text = element_text('mono'))

#给每一副子图加上序号，tag_level选A，表示用大写字母来标注
patchwork + plot_annotation(tag_levels = 'A')

#给每一副子图加上序号，tag_level选a，表示用小写字母来标注
patchwork + plot_annotation(tag_levels = 'a')

#给每一副子图加上序号，tag_level选I，表示用大写罗马字母来标注
patchwork + plot_annotation(tag_levels = 'I')

#给每一副子图加上序号，tag_level选i，表示用小写罗马字母来标注
patchwork + plot_annotation(tag_levels = 'i')

#给每一副子图加上序号，tag_level选1，表示用数字来标注
patchwork + plot_annotation(tag_levels = '1')

#调节标号的大小为20
patchwork + 
  plot_annotation(tag_levels = 'A') & 
  theme(plot.tag = element_text(size = 20))

#首先给上部两张图new一个新的标号方式
patchwork[[1]] <- patchwork[[1]] + plot_layout(tag_level = 'new')
#采用大写字母和数字的组合来标注每一张图
patchwork + plot_annotation(tag_levels = c('A', '1'))

#标号加前缀，连接符和后缀
patchwork + plot_annotation(tag_levels = c('A', '1'), tag_prefix = 'Fig. ',
                            tag_sep = '-', tag_suffix = ':')

#自定义标号，上部采用#加数字，下部采用&进行标号
patchwork + 
  plot_annotation(tag_levels = list(c('#', '&'), '1'))

#控制标号摆放的位置，以及对标号位置进行微调
patchwork + 
  plot_annotation(tag_levels = c('A', '1'), tag_prefix = 'Fig. ', tag_sep = '-', 
                  tag_suffix = ':') & 
  #c(0,1)左上角，c(0,0)左下角，其他位置依次类推
  theme(plot.tag.position = c(0, 0),
        #hjust水平微调，vjust垂直微调
        plot.tag = element_text(size = 14, hjust = 0, vjust = 0))