r语言layout函数给图片添加标号_用R来拼图和排版，告别AI和PS(三)：添加注释信息...

前面我们讲了用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'
)

效果如下