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

前面我们讲了用R来拼图和排版，告别AI和PS(一)和用R来拼图和排版，告别AI和PS(二)：调节宽度和高度，今天我们来看看如何给图片添加一些注释信息。

首先我们还是先来安装patchwork这个R包，然后加载。生成三张单独的图片。

代码语言：javascript复制

#安装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')

一、添加标题，修改标题字体类型和字体大小

接下来，我们来将上面的三张图拼接起来，然后加上一些标题和说明文字

代码语言：javascript复制

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'
)

效果如下

如果你不喜欢这个字体，我们还可以修改标题的字体

代码语言：javascript复制

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

当然标题字体的大小也是可以修改的

代码语言：javascript复制

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

二、为子图添加序号

代码语言：javascript复制

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

代码语言：javascript复制

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

代码语言：javascript复制

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

代码语言：javascript复制

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

代码语言：javascript复制

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

当然标号的大小也是可以修改的

代码语言：javascript复制

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

这里patchwork这张图由上下两部分组成，上部又由两张图组成。在编号的时候，可以采用两种标号方式进行组合编号。

代码语言：javascript复制

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

我们还可以自定义前缀，后缀和链接符

代码语言：javascript复制

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

除了使用这个包里面自带的标号类型以外，我们还可以自定义标号的类型

代码语言：javascript复制

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

这里标号的位置也是可以根据需要来进行调整的

代码语言：javascript复制

#控制标号摆放的位置，以及对标号位置进行微调
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))

今天的分享就先到这里，大家可以自己去练习一下。纸上得来终觉浅，绝知此事要躬行。

参考资料：

用R来拼图和排版，告别AI和PS(一)
用R来拼图和排版，告别AI和PS(二)：调节宽度和高度

0 人点赞