p1
geom_point(aes(y=moving_average,size=1,alpha=0.6,color="moving_average"))+
labs(title="Saturday Hourly Ridership")+
theme(plot.title = element_text(hjust = 0.5,size=28))+
theme(text = element_text(size=25))+
guides(alpha=FALSE)+guides(size=FALSE)+
ylab("Daily Ridership")+
scale_colour_discrete(breaks = c('Ridership','moving_average'), labels = c('Daily Ridership','Moving Average'))+
xlim(0,168)
p2
geom_point(aes(y=moving_average,size=1,alpha=0.6,color="moving_average"))+
labs(title="Sunday Hourly Ridership")+
theme(plot.title = element_text(hjust = 0.5,size=28))+
theme(text = element_text(size=25))+
guides(alpha=FALSE)+guides(size=FALSE)+
ylab("Daily Ridership")+
scale_colour_discrete(breaks = c('Ridership','moving_average'), labels = c('Daily Ridership','Moving Average'))+
xlim(0,168)
p3
geom_point(aes(y=moving_average,size=1,alpha=0.6,color="moving_average"))+
labs(title="WeekDay Hourly Ridership")+
theme(plot.title = element_text(hjust = 0.5,size=28))+
theme(text = element_text(size=25))+
guides(alpha=FALSE)+guides(size=FALSE)+
ylab("Daily Ridership")+
scale_colour_discrete(breaks = c('Ridership','moving_average'), labels = c('Daily Ridership','Moving Average'))+
xlim(0,168)
p4
labs(title="WeekDay Hourly Ridership")+
theme(plot.title = element_text(hjust = 0.5,size=28))+
theme(text = element_text(size=25))+
guides(alpha=FALSE)+guides(size=FALSE)+
ylab("Daily Ridership")+
geom_hline(yintercept = 0)
xlim(0,168)
easyGgplot2::ggplot2.multiplot(p1,p2,p3,p4,cols = 1)
3164
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
