patchwork是真的香

小潔老師的文章 覺(jué)得好 轉(zhuǎn)過(guò)來(lái)看看

簡(jiǎn)介

tidyverse可以說(shuō)是追求代碼“易讀”的典范,今天介紹的拼圖包名為“patchwork”寥粹,作者是tidyverse團(tuán)隊(duì)成員--Thomas Lin Pedersen审丘,昨天(2019年12月1日)剛剛登上CRAN霍狰,新鮮熱乎新蟆!這樣的熱點(diǎn)我是很愿意追的,八卦什么的就算啦怔揩,雖然能帶來(lái)閱讀量捉邢,可我學(xué)不到東西脯丝。

長(zhǎng)得帥的大佬可以擁有寄幾的大照,雖然是黑白的:

(不能繼續(xù)夸了,再夸晚飯就都被豆豆吃了)

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

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

總結(jié)一下他的功能和優(yōu)點(diǎn)

(1)支持直接p1+p2拼圖歌逢,比任何一個(gè)包都簡(jiǎn)單

(2)復(fù)雜的布局代碼易讀性更強(qiáng)

(3)可以給子圖添加標(biāo)記(例如ABCD巾钉, I II III IV 這樣)

(4)可以統(tǒng)一修改所有子圖

(5)可以將子圖的圖例移到一起,整體性特別好

簡(jiǎn)單好用秘案,功能強(qiáng)大砰苍,真香!

1.極簡(jiǎn)入門(mén)-拼兩張圖

橫著就"+"阱高,豎著就"/"

library(ggplot2)library(patchwork)p1<-ggplot(mpg)+geom_point(aes(hwy,displ))p2<-ggplot(mpg)+geom_bar(aes(manufacturer,fill=stat(count)))+coord_flip()#就是這么優(yōu)秀:p1+p2

p1/p2

2.多幾張圖

p3<-ggplot(mpg)+geom_smooth(aes(hwy,cty))+facet_wrap(~year)p1+p2+p3#> `geom_smooth()` using method = 'loess' and formula 'y ~ x'

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'

繼承了矩陣的兩個(gè)參數(shù)”nrow“和"byrow"

p1+p2+p3+p4+plot_layout(nrow=4)#> `geom_smooth()` using method = 'loess' and formula 'y ~ x'

再難一點(diǎn)也不在話下

(p1|p2)/p3#> `geom_smooth()` using method = 'loess' and formula 'y ~ x'

p1|(p2/p3)#> `geom_smooth()` using method = 'loess' and formula 'y ~ x'

(p1|(p2/p3))+plot_annotation(title='The surprising story about mtcars')#> `geom_smooth()` using method = 'loess' and formula 'y ~ x'

3.可以再?gòu)?fù)雜一點(diǎn)

大招:layout不用坐標(biāo)赚导,不用寬高比例,直接用ABCD就行

layout<-'ABBCCD'p1+p2+p3+p4+plot_layout(design=layout)#> `geom_smooth()` using method = 'loess' and formula 'y ~ x'

4.給子圖添加標(biāo)記

啥也不說(shuō)了赤惊,大佬怎么就這么優(yōu)秀呢吼旧?

p1+p2+p3+plot_annotation(tag_levels='I')#> `geom_smooth()` using method = 'loess' and formula 'y ~ x'

patchwork<-(p4|p2)/p1patchwork+plot_annotation(tag_levels='A')

嵌套式的子標(biāo)題也能搞定

patchwork<-((p4|p2)+plot_layout(tag_level='new'))/p1patchwork+plot_annotation(tag_levels=c('A','1'))

5.統(tǒng)一修改所有子圖

用”&“符號(hào),簡(jiǎn)單的很

patchwork&theme_minimal()

6.圖例管理

走開(kāi)未舟,圖例都給我去右邊

patchwork+plot_layout(guides='collect')

一樣的圖例可以只顯示一個(gè)圈暗,但是要讓閾值一致

patchwork<-patchwork&scale_fill_continuous(limits=c(0,60))patchwork+plot_layout(guides='collect')

嗯,不是一般的香裕膀!

轉(zhuǎn)自小潔老師

最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末员串,一起剝皮案震驚了整個(gè)濱河市,隨后出現(xiàn)的幾起案子昼扛,更是在濱河造成了極大的恐慌寸齐,老刑警劉巖,帶你破解...
    沈念sama閱讀 222,946評(píng)論 6 518
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件抄谐,死亡現(xiàn)場(chǎng)離奇詭異渺鹦,居然都是意外死亡,警方通過(guò)查閱死者的電腦和手機(jī)蛹含,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 95,336評(píng)論 3 399
  • 文/潘曉璐 我一進(jìn)店門(mén)毅厚,熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái),“玉大人浦箱,你說(shuō)我怎么就攤上這事卧斟。” “怎么了憎茂?”我有些...
    開(kāi)封第一講書(shū)人閱讀 169,716評(píng)論 0 364
  • 文/不壞的土叔 我叫張陵,是天一觀的道長(zhǎng)锤岸。 經(jīng)常有香客問(wèn)我竖幔,道長(zhǎng)奇昙,這世上最難降的妖魔是什么介返? 我笑而不...
    開(kāi)封第一講書(shū)人閱讀 60,222評(píng)論 1 300
  • 正文 為了忘掉前任淌实,我火速辦了婚禮凌埂,結(jié)果婚禮上,老公的妹妹穿的比我還像新娘馋评。我一直安慰自己放接,他們只是感情好,可當(dāng)我...
    茶點(diǎn)故事閱讀 69,223評(píng)論 6 398
  • 文/花漫 我一把揭開(kāi)白布留特。 她就那樣靜靜地躺著纠脾,像睡著了一般。 火紅的嫁衣襯著肌膚如雪蜕青。 梳的紋絲不亂的頭發(fā)上苟蹈,一...
    開(kāi)封第一講書(shū)人閱讀 52,807評(píng)論 1 314
  • 那天,我揣著相機(jī)與錄音右核,去河邊找鬼慧脱。 笑死,一個(gè)胖子當(dāng)著我的面吹牛贺喝,可吹牛的內(nèi)容都是我干的菱鸥。 我是一名探鬼主播,決...
    沈念sama閱讀 41,235評(píng)論 3 424
  • 文/蒼蘭香墨 我猛地睜開(kāi)眼躏鱼,長(zhǎng)吁一口氣:“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼氮采!你這毒婦竟也來(lái)了?” 一聲冷哼從身側(cè)響起挠他,我...
    開(kāi)封第一講書(shū)人閱讀 40,189評(píng)論 0 277
  • 序言:老撾萬(wàn)榮一對(duì)情侶失蹤扳抽,失蹤者是張志新(化名)和其女友劉穎,沒(méi)想到半個(gè)月后殖侵,有當(dāng)?shù)厝嗽跇?shù)林里發(fā)現(xiàn)了一具尸體贸呢,經(jīng)...
    沈念sama閱讀 46,712評(píng)論 1 320
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 38,775評(píng)論 3 343
  • 正文 我和宋清朗相戀三年拢军,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了楞陷。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
    茶點(diǎn)故事閱讀 40,926評(píng)論 1 353
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡茉唉,死狀恐怖固蛾,靈堂內(nèi)的尸體忽然破棺而出,到底是詐尸還是另有隱情度陆,我是刑警寧澤艾凯,帶...
    沈念sama閱讀 36,580評(píng)論 5 351
  • 正文 年R本政府宣布,位于F島的核電站懂傀,受9級(jí)特大地震影響趾诗,放射性物質(zhì)發(fā)生泄漏。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 42,259評(píng)論 3 336
  • 文/蒙蒙 一恃泪、第九天 我趴在偏房一處隱蔽的房頂上張望郑兴。 院中可真熱鬧,春花似錦贝乎、人聲如沸情连。這莊子的主人今日做“春日...
    開(kāi)封第一講書(shū)人閱讀 32,750評(píng)論 0 25
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)却舀。三九已至,卻和暖如春朽肥,著一層夾襖步出監(jiān)牢的瞬間禁筏,已是汗流浹背。 一陣腳步聲響...
    開(kāi)封第一講書(shū)人閱讀 33,867評(píng)論 1 274
  • 我被黑心中介騙來(lái)泰國(guó)打工衡招, 沒(méi)想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留篱昔,地道東北人。 一個(gè)月前我還...
    沈念sama閱讀 49,368評(píng)論 3 379
  • 正文 我出身青樓始腾,卻偏偏與公主長(zhǎng)得像州刽,于是被迫代替她去往敵國(guó)和親。 傳聞我的和親對(duì)象是個(gè)殘疾皇子浪箭,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 45,930評(píng)論 2 361