前面我們講了用R來拼圖和排版毫炉，告別AI和PS(一)和用R來拼圖和排版，告別AI和PS(二)：調(diào)節(jié)寬度和高度卜壕，今天我們來看看如何給圖片添加一些注釋信息沦泌。
首先我們還是先來安裝patchwork這個(gè)R包匾鸥，然后加載。生成三張單獨(dú)的圖片蜜另。
#安裝patchwork包适室，注意這里一定要安裝v1.1.0版本的patchwork包
#否則在后面自定義標(biāo)號(hào)類型的時(shí)候會(huì)報(bào)錯(cuò)
devtools::install_github("thomasp85/patchwork@v1.1.0")
#加載ggplot2和patchwork
library(ggplot2)
library(patchwork)
?
#圖A 散點(diǎn)圖
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')
?
一、添加標(biāo)題举瑰，修改標(biāo)題字體類型和字體大小
接下來捣辆，我們來將上面的三張圖拼接起來，然后加上一些標(biāo)題和說明文字
patchwork <- (p1 + p2) / p3
patchwork + plot_annotation(
#主標(biāo)題
title = 'The surprising truth about mtcars',
#次標(biāo)題
subtitle = 'These 3 plots will reveal yet-untold secrets about our beloved data-set',
#說明文字
caption = 'Disclaimer: None of these plots are insightful'
)
效果如下
如果你不喜歡這個(gè)字體此迅，我們還可以修改標(biāo)題的字體
#改變標(biāo)題字體為mono
patchwork +
plot_annotation(title = 'The surprising truth about mtcars') &
theme(text = element_text('mono'))
當(dāng)然標(biāo)題字體的大小也是可以修改的
#改變標(biāo)題字體大小為28
patchwork +
plot_annotation(title = 'The surprising truth about mtcars',
theme = theme(plot.title = element_text(size = 28))) &
theme(text = element_text('mono'))
二汽畴、為子圖添加序號(hào)
#給每一副子圖加上序號(hào)，tag_level選A耸序，表示用大寫字母來標(biāo)注
patchwork + plot_annotation(tag_levels = 'A')
#給每一副子圖加上序號(hào)忍些，tag_level選a，表示用小寫字母來標(biāo)注
patchwork + plot_annotation(tag_levels = 'a')
#給每一副子圖加上序號(hào)坎怪，tag_level選I罢坝，表示用大寫羅馬字母來標(biāo)注
patchwork + plot_annotation(tag_levels = 'I')
#給每一副子圖加上序號(hào)，tag_level選i搅窿，表示用小寫羅馬字母來標(biāo)注
patchwork + plot_annotation(tag_levels = 'i')
#給每一副子圖加上序號(hào)嘁酿，tag_level選1隙券，表示用數(shù)字來標(biāo)注
patchwork + plot_annotation(tag_levels = '1')
當(dāng)然標(biāo)號(hào)的大小也是可以修改的
#調(diào)節(jié)標(biāo)號(hào)的大小為20
patchwork +
plot_annotation(tag_levels = 'A') &
theme(plot.tag = element_text(size = 20))
這里patchwork這張圖由上下兩部分組成，上部又由兩張圖組成闹司。在編號(hào)的時(shí)候娱仔，可以采用兩種標(biāo)號(hào)方式進(jìn)行組合編號(hào)。
#首先給上部?jī)蓮垐Dnew一個(gè)新的標(biāo)號(hào)方式
patchwork[[1]] <- patchwork[[1]] + plot_layout(tag_level = 'new')
#采用大寫字母和數(shù)字的組合來標(biāo)注每一張圖
patchwork + plot_annotation(tag_levels = c('A', '1'))
我們還可以自定義前綴游桩，后綴和鏈接符
#標(biāo)號(hào)加前綴牲迫，連接符和后綴
patchwork + plot_annotation(tag_levels = c('A', '1'), tag_prefix = 'Fig. ',
tag_sep = '-', tag_suffix = ':')
除了使用這個(gè)包里面自帶的標(biāo)號(hào)類型以外，我們還可以自定義標(biāo)號(hào)的類型
#自定義標(biāo)號(hào)借卧，上部采用#加數(shù)字盹憎，下部采用&進(jìn)行標(biāo)號(hào)
patchwork +
plot_annotation(tag_levels = list(c('#', '&'), '1'))
這里標(biāo)號(hào)的位置也是可以根據(jù)需要來進(jìn)行調(diào)整的
#控制標(biāo)號(hào)擺放的位置，以及對(duì)標(biāo)號(hào)位置進(jìn)行微調(diào)
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水平微調(diào)蜒滩，vjust垂直微調(diào)
plot.tag = element_text(size = 14, hjust = 0, vjust = 0))
?
今天的分享就先到這里滨达，大家可以自己去練習(xí)一下。紙上得來終覺淺俯艰，絕知此事要躬行捡遍。
參考資料：
