代码主要实现当x轴数据为分类数据时,如何指定数据按指定数据排序,以折线图方式展现数据
数据
library(ggplot2)
data<-read.csv("D:\\rwork\\tiaocan_xielvbianhua.csv",header = T) #header = Falese的意思
data
#绘制斜率变化
dt<-data
p<-ggplot(dt,aes(x=reorder(factor(dt$Interval),dt$order),y=dt$gradient_change,group=dt$fenlei))
p<-p+geom_line(size=1)#折线大小设置
p<-p+geom_point(size=4)#散点大小设置
p<-p+xlab("Threshold value interval")+ylab("count")+ylim(0,2)#设定x,y轴的名称
p+theme(panel.background=element_rect(fill="white"),
panel.border=element_rect(colour="black",fill=NA,size=1),
panel.grid.minor.y=element_line(colo