R语言数据可视化绘图Slope chart坡度图画法_R语言

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