前面我们讲了用R来拼图和排版，告别AI和PS(一)和用R来拼图和排版，告别AI和PS(二)：调节宽度和高度，今天我们来看看如何给图片添加一些注释信息。
首先我们还是先来安装patchwork这个R包，然后加载。生成三张单独的图片。
#安装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))
这里patchwork这张图由上下两部分组成，上部又由两张图组成。在编号的时候，可以采用两种标号方式进行组合编号。
#首先给上部两张图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))
今天的分享就先到这里，大家可以自己去练习一下。纸上得来终觉浅，绝知此事要躬行。
参考资料：
