多重折线图自定义X轴间隔与自定义title名称—R语言

InputData

Rcode

library(ggplot2)
data<-read.csv("D:\\rwork\MSN\\indexbyminutes.csv",header = T)
dt<-data.frame(data)
head(dt)
#mode(dt$ID)
#class(dt$ID)
#dt$ID2<-dt$as.vector(dt$ID)
#class(dt$ID)
ggplot(dt,aes(x=reorder(dt$ID,dt$order),y=dt$name,colour=factor(dt$label),group=dt$label))+
    geom_line(size=1)+
    scale_colour_discrete(labels=c("PageView","Click","Ap","Ad","Unload"))+
    scale_y_continuous(breaks=seq(0,900,100))+
  scale_x_discrete(breaks=seq(0,59,10))+
  ggtitle("Index By Minutes_Sample Data")+
  xlab("Minutes")+ylab("Count")+labs(colour="Index")
ggs