最近小仙同學在Nature Cell Biology上看到了這樣一張圖，很常見的折線圖畫成這個樣子——原來很常見的圖標類型也可以“煥發新春”！

今天小仙同學就嘗試用R復刻一張類似的折線圖。

Step1. 繪圖數據的準備

首先要把你想要繪圖的數據調整成R語言可以識別的格式，建議大家在excel中保存成csv格式。
數據的格式如下圖：一列表示一種變量，最后一列是每一行的行名。
假設我們有一組單細胞測序的基因表達量數據，第一至九列表示9種基因，第十列表示每一行細胞的標簽。

Step2. 繪圖數據的讀取

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

ave<-read.csv(“your file path”, header = T)
#注釋：ave表示平均值數據

Step3. 繪圖所需package的安裝、調用

library(ggplot2)
library(reshape2)
#注釋：package使用之前需要調用

Step4. 繪圖

data_melt<-melt (data, id.vars=“Cell”)
ave_melt<-melt (ave, id.vars = “Type”)
#注釋：melt()函數把表格中的寬數據變成長數據，注意id.vars對應的參數是相應標簽列的列名

>p<-ggplot()+geom_line(data=data_melt,aes(x=variable,y=value,group=Cell),size=1,colour="gray")+
geom_line(data=ave_melt, aes(x=variable,y=value,group=Type),size=2,colour="#E3191C")+
   theme(panel.background = element_blank(),axis.line = element_line(colour = "black"),
   panel.border = element_rect(colour ="black",fill=NA))
>p

好啦，今天的分享就到這里了。
今天小仙同學還想留一個問題，如果有很多個excel文件要轉存為csv格式，手動操作是不是太慢了一點呢，用什么方法可以快一點呢？小仙同學有一個方法，下次揭曉哦!