前面我们已经通过四期的内容来讲解了如何使用R包patchwork来拼图，排版，添加注释信息和布局。
今天我们来聊聊插图
首先我们还是先生成两张图
#安装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('A')
#图B 箱型图
p2 <- ggplot(mtcars) +
geom_boxplot(aes(gear, disp, group = gear)) +
ggtitle('B')
有两种方法可以实现插图的效果，
第一种方法，就是利用布局里面提到的layout来实现
#重叠
layout <- c(
area(t = 2, l = 1, b = 5, r = 4),
area(t = 1, l = 3, b = 3, r = 5)
)
plot(layout)
这是layout的效果图
接下来，我们替换成自己的两张图片
p1 + p2 +
plot_layout(design = layout)
当然也可以将图B完全插入到图A内部，先来看看效果图
#在图A右上角插入图B
layout <- c(
area(t = 1, l = 1, b = 8, r = 8),
area(t = 1, l = 6, b = 3, r = 8)
)
plot(layout)
在来看看实际结果
p1 + p2 +
plot_layout(design = layout)
第二种方法，使用pathchwork内置的inset_element函数来实现
我们还是在图A的右上角插入图B
#默认align_to为panel，只包含绘图区域
#这里的left,bottom,right,top都是按百分比计算
p1 + inset_element(p2, left = 0.6, bottom = 0.6, right = 1, top = 1)
注意inset_element有一个参数叫align_to，默认值是"panel"，你可以看到图B完全在图A的绘图区域里面。下面我们再来看看，如果把这里的align_to设置成"full"会是什么效果。
#aligan_to设置为full,会包含margin区域
p1 + inset_element(p2, left = 0.6, bottom = 0.6, right = 1, top = 1,
align_to = 'full')
我们可以看到当align_to = 'full'的时候，这里考虑到了图A的边界区域，就是写标题"A"的区域，跟上面一张图对比，你就会发现其中的区别。
理解了这里的参数之后，想把图B插入到图A的左下角也很容易
#左下角
p1 + inset_element(p2, left = 0, bottom = 0, right = 0.6, top = 0.5)
当然，我们还可以人为定义边距的大小
#图B的上边和右边各留出1cm
p1 + inset_element(
p2,
left = 0.5,
bottom = 0.5,
right = unit(1, 'npc') - unit(1, 'cm'),
top = unit(1, 'npc') - unit(1, 'cm')
)
到这里，我们对patchwork这个包的讲解就全部结束了，希望对大家有所帮助！
往期回顾：
