用R来拼图和排版,告别AI和PS(五):插图

发布于 2021-01-28 01:21

前面我们已经通过四期的内容来讲解了如何使用R包patchwork来拼图，排版，添加注释信息和布局。

1.用R来拼图和排版，告别AI和PS(一)

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

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

4.用R来拼图和排版，告别AI和PS(四)：布局

今天我们来聊聊插图

首先我们还是先生成两张图

#安装patchworkdevtools::install_github("thomasp85/patchwork@v1.1.0")#加载ggplot2和patchworklibrary(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内部，先来看看效果图

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函数来实现

#默认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的上边和右边各留出1cmp1 + inset_element(  p2,   left = 0.5,   bottom = 0.5,   right = unit(1, 'npc') - unit(1, 'cm'),   top = unit(1, 'npc') - unit(1, 'cm'))