前面我们简单给大家介绍了如何使用R包patchwork来拼图和排版，今天我们接着来探讨，如何在拼图和排版的时候调节图片的宽度和高度，使最后的图片层次鲜明，重点突出。
我们还是使用上次的数据来举例，如果对patchwork这个包还不了解的同学，请回看上期内容用R来拼图和排版，告别AI和PS(一)。
#加载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')
#图C 拟合曲线
p3 <- ggplot(mtcars) +
geom_smooth(aes(hp, wt)) +
ggtitle('C')
#图D 柱形图
p4 <- ggplot(mtcars) +
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拼成第二行。
今天的分享就先到这里，后面会给大家介绍更复杂的排版方式，敬请期待！
参考资料：
