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

生信交流平台

发布于 2022-09-21 13:11:08

5070

发布于 2022-09-21 13:11:08

文章被收录于专栏：用户7627119的专栏

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

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

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

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

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

今天我们来聊聊插图

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

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