多重折线图自定义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")ggsave("Index By Minutes_Sample Data.png",width=20,height=10,unit="cm",dpi=300)getwd()

注意点

结果