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()
注意点

本文介绍了如何在R语言中利用ggplot2库创建多重折线图,并详细讲解了如何自定义X轴的刻度间隔以及设置图表的标题,为数据可视化提供了更个性化的展示方式。

1268

被折叠的 条评论
为什么被折叠?



