R語言精美圖形繪制系列 | 云雨圖

一机隙、前言

今天也繼續(xù)分享一下使用R語言繪制云雨圖,這個圖形的繪制在基于R 語言繪制柱狀圖教程混合整理教程中也有提及,如果感興趣可以自己看一下。


二、繪圖

導(dǎo)入相關(guān)的包

library(ggplot2)
#devtools::install_github("GuangchuangYu/gglayer")
library(gglayer)

###'@提供geom_flat_violin()函數(shù)
# install.packages("remotes")
# remotes::install_github("kholsteen/geneRal")
library(geneRal)

數(shù)據(jù)就使用上期的數(shù)據(jù)即可栽渴,如不知道,請看R語言精美圖形繪制系列 | 箱線圖繪制稳懒。

導(dǎo)入數(shù)據(jù)

y <- read.csv("inputdata.csv",headr = T)

#計算每個分組的平均值
y.mean <- aggregate(.~Var1,y,mean) 
m <- y.mean$value
names(m) <- y.mean$Var1
#按平均值給分組排序闲擦,便于畫圖
y$Var1 <- factor(y$Var1, levels=names(sort(m))) 

繪圖

  1. 基礎(chǔ)圖形
ggplot(y, aes(Var1, value, fill = Var1))+
  geom_flat_violin()+
  theme(legend.position = "none")
  1. 其他類型
ggplot(y, aes(Var1, value, fill = Var1))+
  geom_flat_violin(position = position_nudge(x = .2, y = 0))+
  geom_jitter(alpha = 0.1, width = 0.15) +
  theme(legend.position = "none")
  1. 你需的類型
ggplot(y, aes(Var1, value, fill = Var1)) +
  #scale_fill_brewer(palette="Set2") + #配色
  guides(fill=FALSE) +
  geom_flat_violin(position=position_nudge(x=.2)) +
  
  #分散不重疊的點圖
  #geom_jitter(aes(color=Var1), width=.15) + guides(color=FALSE) +
  #堆疊的點圖
  geom_dotplot(binaxis="y", stackdir="down", dotsize=.35) +
  
  geom_boxplot(width=.1, position=position_nudge(x=.1)) +
  geom_hline(aes(yintercept=0.75), linetype="dashed") + #畫一條虛線
  
  coord_flip() + # x、y坐標軸互換
  xlab("") + ylab("") + 
  theme(axis.text.x = element_text(family = "Arial", size = 16, face = "bold"),
        axis.text.y = element_text(family = "Arial", size = 16, face = "bold")) + 
  theme_bw() + 
  theme(panel.border=element_rect(size=1)) #邊框粗細 

參考:

  1. https://verytoolz.com/blog/664564561c/
  2. https://zhuanlan.zhihu.com/p/384928683
  3. https://blog.csdn.net/weixin_42655515/article/details/111167105

往期文章:

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


2. 精美圖形繪制教程

3. 轉(zhuǎn)錄組分析教程


小杜的生信筆記场梆,主要發(fā)表或收錄生物信息學的教程墅冷,以及基于R的分析和可視化(包括數(shù)據(jù)分析,圖形繪制等)或油;分享感興趣的文獻和學習資料!!

本文由mdnice多平臺發(fā)布

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末寞忿,一起剝皮案震驚了整個濱河市,隨后出現(xiàn)的幾起案子装哆,更是在濱河造成了極大的恐慌罐脊,老刑警劉巖定嗓,帶你破解...
    沈念sama閱讀 222,252評論 6 516
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件蜕琴,死亡現(xiàn)場離奇詭異萍桌,居然都是意外死亡,警方通過查閱死者的電腦和手機凌简,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 94,886評論 3 399
  • 文/潘曉璐 我一進店門上炎,熙熙樓的掌柜王于貴愁眉苦臉地迎上來,“玉大人雏搂,你說我怎么就攤上這事藕施。” “怎么了凸郑?”我有些...
    開封第一講書人閱讀 168,814評論 0 361
  • 文/不壞的土叔 我叫張陵裳食,是天一觀的道長。 經(jīng)常有香客問我芙沥,道長诲祸,這世上最難降的妖魔是什么? 我笑而不...
    開封第一講書人閱讀 59,869評論 1 299
  • 正文 為了忘掉前任而昨,我火速辦了婚禮救氯,結(jié)果婚禮上,老公的妹妹穿的比我還像新娘歌憨。我一直安慰自己着憨,他們只是感情好,可當我...
    茶點故事閱讀 68,888評論 6 398
  • 文/花漫 我一把揭開白布务嫡。 她就那樣靜靜地躺著甲抖,像睡著了一般。 火紅的嫁衣襯著肌膚如雪心铃。 梳的紋絲不亂的頭發(fā)上惧眠,一...
    開封第一講書人閱讀 52,475評論 1 312
  • 那天,我揣著相機與錄音于个,去河邊找鬼氛魁。 笑死,一個胖子當著我的面吹牛厅篓,可吹牛的內(nèi)容都是我干的秀存。 我是一名探鬼主播,決...
    沈念sama閱讀 41,010評論 3 422
  • 文/蒼蘭香墨 我猛地睜開眼羽氮,長吁一口氣:“原來是場噩夢啊……” “哼或链!你這毒婦竟也來了?” 一聲冷哼從身側(cè)響起档押,我...
    開封第一講書人閱讀 39,924評論 0 277
  • 序言:老撾萬榮一對情侶失蹤澳盐,失蹤者是張志新(化名)和其女友劉穎祈纯,沒想到半個月后,有當?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體叼耙,經(jīng)...
    沈念sama閱讀 46,469評論 1 319
  • 正文 獨居荒郊野嶺守林人離奇死亡腕窥,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點故事閱讀 38,552評論 3 342
  • 正文 我和宋清朗相戀三年,在試婚紗的時候發(fā)現(xiàn)自己被綠了筛婉。 大學時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片簇爆。...
    茶點故事閱讀 40,680評論 1 353
  • 序言:一個原本活蹦亂跳的男人離奇死亡,死狀恐怖爽撒,靈堂內(nèi)的尸體忽然破棺而出入蛆,到底是詐尸還是另有隱情,我是刑警寧澤硕勿,帶...
    沈念sama閱讀 36,362評論 5 351
  • 正文 年R本政府宣布哨毁,位于F島的核電站,受9級特大地震影響源武,放射性物質(zhì)發(fā)生泄漏扼褪。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點故事閱讀 42,037評論 3 335
  • 文/蒙蒙 一软能、第九天 我趴在偏房一處隱蔽的房頂上張望迎捺。 院中可真熱鬧,春花似錦查排、人聲如沸凳枝。這莊子的主人今日做“春日...
    開封第一講書人閱讀 32,519評論 0 25
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽岖瑰。三九已至,卻和暖如春砂代,著一層夾襖步出監(jiān)牢的瞬間蹋订,已是汗流浹背。 一陣腳步聲響...
    開封第一講書人閱讀 33,621評論 1 274
  • 我被黑心中介騙來泰國打工刻伊, 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留露戒,地道東北人。 一個月前我還...
    沈念sama閱讀 49,099評論 3 378
  • 正文 我出身青樓捶箱,卻偏偏與公主長得像智什,于是被迫代替她去往敵國和親。 傳聞我的和親對象是個殘疾皇子丁屎,可洞房花燭夜當晚...
    茶點故事閱讀 45,691評論 2 361

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