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

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

data_melt<-melt(data,id.vars = "Sample")
# 注釋：將原始的寬數據變成長數據，方便畫圖
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