R語言繪制Facet violin plot小提琴刻面圖實現(xiàn)示例

更新時間：2022年02月18日 10:10:36 作者：黃小仙

這篇文章主要為大家介紹了R語言繪制Facet violin plot小提琴刻面圖的實現(xiàn)示例，有需要的朋友可以借鑒參考下，希望能夠有所幫助，祝大家多多進(jìn)步

老鐵們，許久未見啦。順便說一下，最近可不是小仙同學(xué)偷懶喲，電腦上個月送修今天剛剛拿回來(想買聯(lián)想Yoga的同學(xué)先問問自己會不會拆電腦換排線，我買的這臺用了一個月，送修也用了一個月 )。
最近我可攢了個大招呢，先來看看下面這張圖，有沒有很眼熟呢？

在這里插入圖片描述

這張圖在開始介紹R語言的時候就出現(xiàn)過啦，不過小仙同學(xué)當(dāng)時并不知道怎么畫。今天可以秀一把啦。

Step1. 繪圖數(shù)據(jù)的準(zhǔn)備

老樣子，準(zhǔn)備好要作圖的csv文件。
數(shù)據(jù)的格式如下圖：列表示一種變量(特征)，第一行是列名
a1~a9表示9種基因，TypeA~TypeC表示三種不同的細(xì)胞

在這里插入圖片描述

Step2. 繪圖數(shù)據(jù)的讀取

data<-read.csv(“your file path”, header = T)    #注釋：header=T表示數(shù)據(jù)中      
                                的第一行是列名，如果沒有列名就用header=F

Step3.繪圖所需package的安裝、調(diào)用

#注釋：大家要注意今天要用的package安裝比較特別喲
install.packages("devtools")                  
library(devtools) 
install_github("kassambara/easyGgplot2")
library(easyGgplot2)
#注釋：今天還要用到一個新的函數(shù)，reshape2里的melt函數(shù)，可以把寬數(shù)據(jù)變成長數(shù)據(jù) 
install.package("reshape2")  
library(reshape2)
df<-melt(data,id.vars = c("type"))

Step4. 繪圖

ggplot2.violinplot(data=df,xName='variable',yName='value',         #注釋：xName表示x軸變量，yName表示y軸變量
                   groupName='variable', legendPosition="top",
                   faceting=TRUE,facetingVarNames="type")

在這里插入圖片描述

Step5.美化

ggplot2.violinplot(data=df,xName='variable',yName='value',
                   groupName='variable', legendPosition="top",
                   backgroundColor="white",
                   removePanelGrid=TRUE,
                   axisLine=c(0.5, "solid", "black"),
                   faceting=TRUE, facetingVarNames="type")

在這里插入圖片描述