即便小仙同學(xué)決定學(xué)習(xí)R語言來提升自己作圖的“逼格”的時候，心中還有有些疑慮的(嘿嘿，我這么懶，可不愿意做無用功了?)。仔細(xì)想了想，貌似又找到了兩個學(xué)習(xí)R的理由。

一是R可以幫助我們避免重復(fù)勞動，實現(xiàn)“一勞永逸”的終極夢想。盡管非常不想承認(rèn)這一事實，在科研的過程中，小仙同學(xué)制造出了大量“無效”的數(shù)據(jù)(sign…)，但也不得不“絞盡腦汁”、“竭盡全力”地進行花式分析，試圖找出合理的解釋。這時候用Excel或者Origin作圖的劣勢就顯現(xiàn)出來了，每換一種分析方法或者是數(shù)據(jù)，我們都需要經(jīng)過“插入圖表”、“調(diào)整顏色”、“調(diào)整間距”等等繁雜的工序畫出一張可以拿去“面圣”的圖。小仙同學(xué)一想到這些就感覺“累覺不愛”了。

二是R可以自動生成比較貌美的圖。不知道大家有沒有這樣的感受，自己辛辛苦苦畫了半天、調(diào)整的半天的圖會得到真實卻很殘忍的評價“很丑”（這是小仙同學(xué)心中永遠(yuǎn)的痛）。即使本小仙自以為眼光獨特、品味高雅，費勁嘗試“高級”的色系，但搭配出來總是那么不盡人意（實測網(wǎng)紅晚晚帶火的“莫蘭迪色”不適用于科研繪圖）。顏色的搭配、飽和度和透明度的調(diào)整沒有想象中那么容易。折騰了半天，天生就愛不服氣的本小仙，最后決定還是把專業(yè)的事交給專業(yè)的人做啦（偷偷告訴你，據(jù)說有科學(xué)家專門研究paper插圖的配色，所以自己畫的圖沒有那么貌美的時候也不要“妄自菲薄”啦）。

好了，叨叨這么多，終于要開始進入正題啦。一開始用R繪圖的時候，小仙同學(xué)其實是非常痛苦的，因為沒有編程基礎(chǔ)，又懟了好幾年瓶瓶罐罐，看到一行行代碼，腦子里飄過的全是“&%￥#@￥$”。尤其是當(dāng)你有實驗要做、報告要寫、作業(yè)要交的時候，平心靜氣地坐下來踏踏實實學(xué)習(xí)真的太難了(有人說小仙同學(xué)那么忙是因為效率低，好像真有些道理，我這真是“唉”，有苦說不出)。

后來本小仙的學(xué)習(xí)策略就非常簡單，用到啥就去搜啥，我對數(shù)據(jù)結(jié)構(gòu)、語法結(jié)構(gòu)一點都不感興趣，能讓我用最短的時間內(nèi)畫出我想要的圖，就是最好的方法。即使這樣，小仙同學(xué)還是費了一些功夫。因為網(wǎng)上的一些教程，很多都是從別處復(fù)制粘貼過來的，本身就不完整。另外一個原因，某些大神覺得自己的教程已經(jīng)足夠通俗易懂了，有些大家都知道的基礎(chǔ)知識根本不需要講（小仙同學(xué)不服，有基礎(chǔ)的同學(xué)不用看教程也可以自己摸索出來，真正需要教程的就是我們這些小白）。
小仙同學(xué)愿意嘗試一下，把最最全面、稍作修改就能拿去的方法code分享一下，也不枉費花了那么多的時間。
那就先從violin plot開始吧。
(假設(shè)你已經(jīng)安裝了R和RStudio)

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

首先要把你想要繪圖的數(shù)據(jù)調(diào)整成R語言可以識別的格式。
一般我們的數(shù)據(jù)都是保存在excel文檔里，這里建議大家在excel中保存成csv格式，讀寫的速度會比xlsx快很多。（小仙同學(xué)的親身經(jīng)驗，我的有些數(shù)據(jù)有兩萬行，xlsx在我的耐心范圍內(nèi)讀不進去，RStudio崩潰）。
數(shù)據(jù)的格式如下圖：一列表示一種變量，第一行是列名

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

data<-read.csv(“your file path”, header = T)

#注釋：header=T表示數(shù)據(jù)中的第一行是列名，如果沒有列名就用header=F

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

install.package(“ggplot2”) #注釋：ggplot2是目前公認(rèn)繪圖很強的一個安裝包

library(ggplot2) #注釋：package在使用之前需要調(diào)用

Step4.繪圖

data$dose <- as.factor(data$dose)

#注釋：此處dose可用你的變量名稱替換，$表示取數(shù)據(jù)集里的某一個元素

p<-ggplot(data, aes(x = dose, y = len))

#注釋：”x=”，”y=”表示x軸和y軸表示的變量數(shù)值，p表示圖像對象

p+geom_violin() #注釋：畫出violin plot的函數(shù)

Step5.美化

p+geom_violin(aes(fill = dose)) #注釋:按組別填充不同的顏色

*如果你想手動改變顏色，可以使用這一句

p+geom_violin(aes(fill = “dose”))+scale_fill_manual(values=c("#56B4E9"))
#注釋：”#56B4E9”可以用其他顏色的代碼來替換