前面我们简单给大家介绍了如何使用R包patchwork来拼图和排版，今天我们接着来探讨，如何在拼图和排版的时候调节图片的宽度和高度，使最后的图片层次鲜明，重点突出。

我们还是使用上次的数据来举例，如果对patchwork这个包还不了解的同学，请回看上期内容用R来拼图和排版，告别AI和PS(一)。

#加载ggplot2和patchwork

library(ggplot2)

library(patchwork)

​

#图A 散点图

p1

geom_point(aes(mpg, disp)) +

ggtitle('A')

​

#图B 箱型图

p2

geom_boxplot(aes(gear, disp, group = gear)) +

ggtitle('B')

​

#图C 拟合曲线

p3

geom_smooth(aes(hp, wt)) +

ggtitle('C')

​

#图D 柱形图

p4

geom_bar(aes(gear)) +

facet_wrap(~cyl) +

ggtitle('D')

1.调节宽度

通过plot_layout(widths = c(2, 1)来设置宽度比例为2：1

p1+p2+plot_layout(widths = c(2, 1))

当然你可以直接指定图片的实际宽度为10cm和5cm。跟上面指定比例的区别在于。指定比例，当绘图区域的宽度发生变化的时候，图片的宽度也会跟着发生变化，但保持比例为2：1。如果直接指定了实际的宽度，不论你的绘图区域的宽度如何发生变化，图片的宽度始终保持不变。

p1+p2+plot_layout(widths = unit(c(10, 5), c('cm', 'cm')))

再来个三张图的看看，宽度比例为1：2：3

p1+p2+p3+plot_layout(widths = c(1,2,3))

widths实际上调节的是列的宽度，当你的拼图有多行多列的时候，你就可以看到。接下来我们就来看看，四张图，两行两列排布，我们来改变宽度。

p1+p2+p3+p4+plot_layout(widths = c(2, 1))

你会发现图B和图D的宽度都是图A和图C的1/2，实际我们这里有两列图，而widths控制的就是列的宽度。

2. 调节高度

如果你搞清楚了宽度的调节，那么高度的调节就很容易理解了

p1/p2+plot_layout(heights = c(2, 1))

来看看两行两列的时候，改变高度是什么效果

p1+p2+p3+p4+plot_layout(height=c(2,1))

同样的道理，这里改变的是第一行和第二行的高度。

3.同时调节高度和宽度

p1+p2+p3+p4+plot_layout(widths = c(2, 1),height=c(2,1))

其实就是合并了前面两个例子，应该也很容易理解。

4.结合空白占位图来调节宽度和高度

有时候为了图片的美观，或者为了突出重点图，我们需要结合使用空白占位图。

(plot_spacer()+p1+plot_spacer()+

plot_layout(widths = c(1,4,1)) #调节空白占位图和图A的宽度

) / (p2+p3+p4)

这张图我们在前一期用R来拼图和排版，告别AI和PS(一)讲空白占位图的时候画过，只不过上次画的时候没有调节宽度，图A跟图C的宽度是一样的。这次我们为了突出一下图A，让他的宽度更大一些，让空白占位图的宽度更小一些。

下面我们同时来改变宽度和高度

(plot_spacer()+p1+plot_spacer()+

plot_layout(widths = c(1,4,1))

) / (p2+p3+p4) + plot_layout(heights = c(2,1))

进一步来突出图A，不仅让它更宽，我们也让它更高，这样图A就更显眼了。

5. 附加题，综合使用

最后我们来总结一下今天的所有知识点，来个复杂点的，先来看下效果

然后我们来看代码

(

(plot_spacer()/p1/plot_spacer()+

plot_layout(heights = c(1.2,1,1)) #第一列，三部分的高度

) |

( p2/(p3+p4)+plot_layout(heights = c(1,3)) #第二列，图B，图C+图D的高度

)

)+

plot_layout(widths = c(1,4)) #第一列和第二列的宽度

这张图，整体分为两列，图A和两个空白占位图拼成第一列，图B，C和D为第二列。而第二列又分为两行，图B为一行，图C和图D拼成第二行。

今天的分享就先到这里，后面会给大家介绍更复杂的排版方式，敬请期待！

参考资料：用R来拼图和排版，告别AI和PS(一)​mp.weixin.qq.com