生信繪圖小技巧 | 多組小提琴柱狀組合圖繪制


昨天厦滤,我們分享了跟著NC學(xué)作圖 | 差異比較小提琴+柱狀組合圖的教程。這是單個圖形的教程歼狼,如果是多個類似的圖形掏导,我們需要繪制呢?


對于這個問題羽峰,我們很多同學(xué)首先想到的就是“拼圖”趟咆,這也是我的首先想到的。

使用plot_grid()函數(shù)進行拼圖

拼圖的方式很多梅屉,我一直都是使用plot_grid()進行拼圖值纱,我個人認(rèn)為這是很簡單的方法。

plot_grid()操作

### 數(shù)據(jù)

head(df)
CCLE_ID all_pseudotime emt_score target_tissue CI.05 CI.95
1 22RV1_PROSTATE 49.27840 -1.104890 brain -3.824015 -2.976779
2 22RV1_PROSTATE 49.27840 -1.104890 lung -3.824015 -2.721612
3 22RV1_PROSTATE 49.27840 -1.104890 bone -3.824015 -2.503531
4 22RV1_PROSTATE 49.27840 -1.104890 liver -3.285850 -2.146388
5 22RV1_PROSTATE 49.27840 -1.104890 kidney -3.824015 -3.141363
6 2313287_STOMACH 45.07075 -1.792617 kidney -4.034838 -4.034838
mean penetrance status_metpot
1 -3.220084 0.14285714 weakly_metastatic
2 -3.135029 0.07142857 weakly_metastatic
3 -2.940992 0.07142857 weakly_metastatic
4 -2.438389 0.21428571 weakly_metastatic
5 -3.467631 0.07142857 weakly_metastatic
6 -4.034838 0.00000000 non_metastatic

## 繪制圖形
p1
p2
p3
..............

## 拼圖 
plot_grid(p1,p2,p3,
          p4,p5,p6,
          p7,p8,p9,
          p10,p11,p12,
          ncol = 3, nrow = 4, labels = "AUTO", align = "hv", label_size = 16)

具體參數(shù):

  • ncolnrow:行與列的數(shù)量
  • labels = “AUTO” `:自動標(biāo)注A坯汤、B虐唠、C等,也可以自己設(shè)定
  • label_size:labels的大小
  • align:Specifies whether graphs in the grid should be horizontally ("h") or vertically ("v") aligned. Options are "none" (default), "hv" (align in both directions), "h", and "v"
    .....
    具體參數(shù)可以看plot_grid()文檔惰聂。

同類型的圖疆偿,你需要話很多遍,或者直接寫個for循環(huán)也可以的搓幌。


偷懶的操作要如何做呢翁脆?

使用facet_wrap()函數(shù)即可,具體操作請看下面的鼻种。
直接使用前面的數(shù)據(jù)和代碼繪制[跟著NC學(xué)作圖 | 差異比較小提琴+柱狀組合圖]

多個圖形

添加facet_wrap(~target_tissue)即可反番。因此,在數(shù)據(jù)中需要有target_tissue的分類信息叉钥。

ggviolin(df, "status_metpot", "emt_score", fill = "status_metpot",
             palette = c("#00AFBB", "#E7B800", "#FC4E07"),
             add = "boxplot", add.params = list(fill = "white"),xlab="Metastatic Potential")+ 
  stat_compare_means(comparisons = my_comparisons,method="wilcox")+ 
  geom_hline(yintercept=0, linetype="dashed", color = "red")+
  ## 添加該信息組
  facet_wrap(~target_tissue)

ENDING0崭住!

往期文章:

1. 最全WGCNA教程(替換數(shù)據(jù)即可出全部結(jié)果與圖形)

WGCNA分析 | 全流程分析代碼 | 代碼一

WGCNA分析 | 全流程分析代碼 | 代碼二

WGCNA分析 | 全流程代碼分享 | 代碼三

2. 精美圖形繪制教程

精美圖形繪制教程


小杜的生信筆記 投队,主要發(fā)表或收錄生物信息學(xué)的教程枫疆,以及基于R的分析和可視化(包括數(shù)據(jù)分析,圖形繪制等)敷鸦;分享感興趣的文獻和學(xué)習(xí)資料!!

最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末息楔,一起剝皮案震驚了整個濱河市,隨后出現(xiàn)的幾起案子扒披,更是在濱河造成了極大的恐慌值依,老刑警劉巖,帶你破解...
    沈念sama閱讀 216,372評論 6 498
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件碟案,死亡現(xiàn)場離奇詭異愿险,居然都是意外死亡,警方通過查閱死者的電腦和手機价说,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 92,368評論 3 392
  • 文/潘曉璐 我一進店門辆亏,熙熙樓的掌柜王于貴愁眉苦臉地迎上來风秤,“玉大人,你說我怎么就攤上這事扮叨$拖遥” “怎么了?”我有些...
    開封第一講書人閱讀 162,415評論 0 353
  • 文/不壞的土叔 我叫張陵彻磁,是天一觀的道長甸鸟。 經(jīng)常有香客問我,道長兵迅,這世上最難降的妖魔是什么? 我笑而不...
    開封第一講書人閱讀 58,157評論 1 292
  • 正文 為了忘掉前任薪贫,我火速辦了婚禮恍箭,結(jié)果婚禮上,老公的妹妹穿的比我還像新娘瞧省。我一直安慰自己扯夭,他們只是感情好,可當(dāng)我...
    茶點故事閱讀 67,171評論 6 388
  • 文/花漫 我一把揭開白布鞍匾。 她就那樣靜靜地躺著交洗,像睡著了一般。 火紅的嫁衣襯著肌膚如雪橡淑。 梳的紋絲不亂的頭發(fā)上构拳,一...
    開封第一講書人閱讀 51,125評論 1 297
  • 那天,我揣著相機與錄音梁棠,去河邊找鬼置森。 笑死,一個胖子當(dāng)著我的面吹牛符糊,可吹牛的內(nèi)容都是我干的凫海。 我是一名探鬼主播,決...
    沈念sama閱讀 40,028評論 3 417
  • 文/蒼蘭香墨 我猛地睜開眼男娄,長吁一口氣:“原來是場噩夢啊……” “哼行贪!你這毒婦竟也來了?” 一聲冷哼從身側(cè)響起模闲,我...
    開封第一講書人閱讀 38,887評論 0 274
  • 序言:老撾萬榮一對情侶失蹤建瘫,失蹤者是張志新(化名)和其女友劉穎,沒想到半個月后尸折,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體暖混,經(jīng)...
    沈念sama閱讀 45,310評論 1 310
  • 正文 獨居荒郊野嶺守林人離奇死亡,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點故事閱讀 37,533評論 2 332
  • 正文 我和宋清朗相戀三年翁授,在試婚紗的時候發(fā)現(xiàn)自己被綠了拣播。 大學(xué)時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片晾咪。...
    茶點故事閱讀 39,690評論 1 348
  • 序言:一個原本活蹦亂跳的男人離奇死亡,死狀恐怖贮配,靈堂內(nèi)的尸體忽然破棺而出谍倦,到底是詐尸還是另有隱情,我是刑警寧澤泪勒,帶...
    沈念sama閱讀 35,411評論 5 343
  • 正文 年R本政府宣布昼蛀,位于F島的核電站,受9級特大地震影響圆存,放射性物質(zhì)發(fā)生泄漏叼旋。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點故事閱讀 41,004評論 3 325
  • 文/蒙蒙 一沦辙、第九天 我趴在偏房一處隱蔽的房頂上張望夫植。 院中可真熱鬧,春花似錦油讯、人聲如沸详民。這莊子的主人今日做“春日...
    開封第一講書人閱讀 31,659評論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽沈跨。三九已至,卻和暖如春兔综,著一層夾襖步出監(jiān)牢的瞬間饿凛,已是汗流浹背。 一陣腳步聲響...
    開封第一講書人閱讀 32,812評論 1 268
  • 我被黑心中介騙來泰國打工软驰, 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留笤喳,地道東北人。 一個月前我還...
    沈念sama閱讀 47,693評論 2 368
  • 正文 我出身青樓碌宴,卻偏偏與公主長得像杀狡,于是被迫代替她去往敵國和親。 傳聞我的和親對象是個殘疾皇子贰镣,可洞房花燭夜當(dāng)晚...
    茶點故事閱讀 44,577評論 2 353

推薦閱讀更多精彩內(nèi)容