R语言 分类数据折线图绘制

代码主要实现当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