簡介

tidyverse可以說是追求代碼“易讀”的典范，今天介紹的拼圖包名為“ patchwork”，作者是tidyverse團隊成員-- Thomas Lin Pedersen，
長得帥的大佬可以擁有寄幾的大照,雖然是黑白的：

image

博客地址：https://www.data-imaginist.com/2019/patch-it-up-and-send-it-out/

patchwork包官方教程https://patchwork.data-imaginist.com/index.html

總結一下他的功能和優點：

（1）支持直接p1+p2拼圖，比任何一個包都簡單

（2）復雜的布局代碼易讀性更強

（3）可以給子圖添加標記（例如ABCD， I II III IV 這樣）

（4）可以統一修改所有子圖

（5）可以將子圖的圖例移到一起，整體性特別好

簡單好用，功能強大，真香！

1.極簡入門-拼兩張圖

橫著就"+"，豎著就"/"

library(ggplot2)

library(patchwork)

p1 <- ggplot(mpg) +

geom_point(aes(hwy, displ))

p2 <- ggplot(mpg) +

geom_bar(aes(manufacturer, fill = stat(count))) +

coord_flip

就是這么優秀：

p1 + p2

image

p1 / p2

image

2.多幾張圖p3 <- ggplot(mpg) +

geom_smooth(aes(hwy, cty)) +

facet_wrap(~year)

p1 + p2 + p3

> geom_smooth using method = 'loess' and formula 'y ~ x'

image

p4 <- ggplot(mpg) +

geom_tile(aes(factor(cyl), drv, fill = stat(count)), stat = 'bin2d')

p1 + p2 + p3 + p4

> geom_smooth using method = 'loess' and formula 'y ~ x'

image

繼承了矩陣的兩個參數”nrow“和"byrow"

p1 + p2 + p3 + p4 + plot_layout(nrow = 4)

> geom_smooth using method = 'loess' and formula 'y ~ x'

image

再難一點也不在話下

(p1 | p2) /

p3

> geom_smooth using method = 'loess' and formula 'y ~ x'

image

p1 | (p2 / p3)

> geom_smooth using method = 'loess' and formula 'y ~ x'

image

(p1 | (p2 / p3)) +

plot_annotation(title = 'The surprising story about mtcars')

> geom_smooth using method = 'loess' and formula 'y ~ x'

image

3.可以再復雜一點

大招：layout不用坐標，不用寬高比例，直接用ABCD就行

layout <- '

ABB

CCD

'

p1 + p2 + p3 + p4 + plot_layout(design = layout)

> geom_smooth using method = 'loess' and formula 'y ~ x'

image

4.給子圖添加標記

啥也不說了，大佬怎么就這么優秀呢？

p1 + p2 + p3 +

plot_annotation(tag_levels = 'I')

> geom_smooth using method = 'loess' and formula 'y ~ x'

image

patchwork <- (p4 | p2) /

p1

patchwork + plot_annotation(tag_levels = 'A')

image

嵌套式的子標題也能搞定

patchwork <- ((p4 | p2) + plot_layout(tag_level = 'new')) /

p1

patchwork + plot_annotation(tag_levels = c( 'A', '1'))

image

5.統一修改所有子圖

用”&“符號，簡單的很

patchwork & theme_minimal

image

6.圖例管理

走開，圖例都給我去右邊

patchwork + plot_layout(guides = 'collect')

image

一樣的圖例可以只顯示一個，但是要讓閾值一致

patchwork <- patchwork & scale_fill_continuous(limits = c( 0, 60))

patchwork + plot_layout(guides = 'collect')

image

原文：https://www.sohu.com/a/365661180_718302