data<-read.csv(“your file path”, header = T, check.names=F)
#注釋：header=T表示數(shù)據(jù)中的第一行是列名，如果沒有列名就用header=F
#注釋：R讀取數(shù)據(jù)的時(shí)候，默認(rèn)會(huì)把列名里的空格變成 "."，check.names=F就不會(huì)變了

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

data_melt<-melt(data,id.vars = "Sample")
# 注釋：將原始的寬數(shù)據(jù)變成長數(shù)據(jù)，方便畫圖
p<-ggplot(data_melt,aes(x=variable,y=value,group=Sample))+
   geom_line(color="gray", size=1)+
   geom_point(aes(fill=Sample),shape=21, size=3)+
   theme_bw()+labs(x="",y="Relative expression")
p

p<-ggplot(data_melt,aes(x=variable,y=value,group=Sample))+ 
   geom_point(aes(fill=Sample),shape=21, size=3)+
   geom_line(color="gray", size=1)+
   theme_bw()+labs(x="",y="Relative expression")
p