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

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(colour="black",linetype="dashed",size=0.5),
axis.text.x=element_text(colour="black",size=16,angle=30,hjust=1),
legend.title=element_blank()
)
#在theme()函数里分别设置1面板背景为白色，2图边框为黑色，3y的网格线设置为黑色，虚线 大小为0.5；
#4x轴文本（月份）为黑色，大小为15  ，5图例没有标题