R語言ggplot2拼圖包patchwork安裝使用

第R語言ggplot2拼圖包patchwork安裝使用目錄引言安裝例子高級特性

引言

patchwork是基于ggplot2的拼圖包，因為ggplot2本身沒有強大的拼圖語法，而一般使用的gridExtra與cowplot的拼ggplot2圖形都存在不少問題。

我關(guān)注這個包蠻久了，現(xiàn)在Github上的Star數(shù)已經(jīng)遠(yuǎn)超大部分的R包，但似乎還沒有發(fā)布到CRAN。我的工作看似跟作圖相關(guān)，寫的博文大多數(shù)也如此，但實際對圖形的掌控力并不咋的，所以還是要多多學(xué)習(xí)。

下面進(jìn)入正題，掌握好ggplot2與patchwork的基本用法，一般的圖形都可以搞定了，并必要搞的很復(fù)雜。解決問題是關(guān)鍵，認(rèn)真工作也是關(guān)鍵，畫圖看起來是，其實不是。

安裝

#需要提取安裝好devtools包，

#如果你解決安裝和載入包很麻煩，可以試試pacman包，我在簡書寫了介紹和簡單使用

devtools::install_github("thomasp85/patchwork")

導(dǎo)入：

p_load(patchwork)

#library(patchwork)

例子

patchwork的使用灰常簡單，使用+把要拼的圖加在一起就可以了。

library(ggplot2)

library(patchwork)

p1-ggplot(mtcars)+geom_point(aes(mpg,disp))

p2-ggplot(mtcars)+geom_boxplot(aes(gear,disp,group=gear))

p1+p2

我們不用創(chuàng)建對象，也可以像ggplot2本身使用一樣相加。

ggplot(mtcars)+

geom_point(aes(mpg,disp))+

ggplot(mtcars)+

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

另外，可以使用布局函數(shù)plot_layout對拼接細(xì)節(jié)進(jìn)行更細(xì)致地指定，像每個圖的范圍，圖形的排列。

p1+p2+plot_layout(ncol=1,heights=c(3,1))

如果你想要在圖形之間添加一些空間，可以使用plot_spacer()填充一個空白格。

p1+plot_spacer()+p2

增加花括號的使用進(jìn)行嵌套可以布置更復(fù)雜的圖形：

p3-ggplot(mtcars)+geom_smooth(aes(disp,qsec))

p4-ggplot(mtcars)+geom_bar(aes(carb))

p4+{

p1+{

p2+

p3+

plot_layout(ncol=1)

plot_layout(ncol=1)

##`geom_smooth()`usingmethod='loess'andformula'y~x'

括號也是可以的：

p3-ggplot(mtcars)+geom_smooth(aes(disp,qsec))

p4-ggplot(mtcars)+geom_bar(aes(carb))

p4+(

p1+(

p2+

p3+

plot_layout(ncol=1)

plot_layout(ncol=1)

##`geom_smooth()`usingmethod='loess'andformula'y~x'

高級特性

除了將圖形添加到一起，patchwork定義了一些有意思的操作符，，簡化了上面的嵌套語法。-操作符將左右兩邊的對象放在同一個嵌套層，而不是像+號把右邊放入左邊的嵌套層。

p1+p2+p3+plot_layout(ncol=1)

##`geom_smooth()`usingmethod='loess'andformula'y~x'

p1+p2-p3+plot_layout(ncol=1)

##`geom_smooth()`usingmethod='loess'andformula'y~x'

現(xiàn)在p1+p2與p3在同一嵌套層。

|與/操作符可以用來水平和垂直布局。

(p1|p2|p3)/

##`geom_smooth()`usingmethod='loess'andformula'y~x'

子圖多的時候同時修改圖形比較麻煩，patchwork提供了*與用來簡化代碼，它們都可以將同一個操作應(yīng)用到所有圖形。

(p1+(p2+p3)+p4+plot_layout(ncol=1))*theme_bw()

##`geom_smooth()`usingmethod='loess'andformula'y~x'

需要注意*只會應(yīng)用到當(dāng)前嵌套層。

p1+(p2+p3)+p4+plot_layout(ncol=1)theme_bw()

##`geom_smooth()`usingmethod='loess'and