Relación Demanda y Días

par(mfrow=c(2,4))
data%>%filter(season==1,yr==0,holiday==0, weekday>0,weekday<6)%>%group_by(weekday)%>%summarise(avgcnt=mean(cnt))%>%plot(main="Primavera 2011", ylab="Demanda", xlab="Dias de semana", col="forestgreen")
data%>%filter(season==2,yr==0,holiday==0, weekday>0,weekday<6)%>%group_by(weekday)%>%summarise(avgcnt=mean(cnt))%>%plot(main="Verano 2011", ylab="Demanda", xlab="Dias de semana", col="darkorange1")
data%>%filter(season==3,yr==0,holiday==0, weekday>0,weekday<6)%>%group_by(weekday)%>%summarise(avgcnt=mean(cnt))%>%plot(main="Otono 2011", ylab="Demanda", xlab="Dias de semana", col="firebrick3")
data%>%filter(season==4,yr==0,holiday==0, weekday>0,weekday<6)%>%group_by(weekday)%>%summarise(avgcnt=mean(cnt))%>%plot(main="Invierno 2011", ylab="Demanda", xlab="Dias de semana", col="deepskyblue")

data%>%filter(season==1,yr==1,holiday==0, weekday>0,weekday<6)%>%group_by(weekday)%>%summarise(avgcnt=mean(cnt))%>%plot(main="Primavera 2012", ylab="Demanda", xlab="Dias de semana", col="forestgreen")
data%>%filter(season==2,yr==1,holiday==0, weekday>0,weekday<6)%>%group_by(weekday)%>%summarise(avgcnt=mean(cnt))%>%plot(main="Verano 2012", ylab="Demanda", xlab="Dias de semana", col="darkorange1")
data%>%filter(season==3,yr==1,holiday==0, weekday>0,weekday<6)%>%group_by(weekday)%>%summarise(avgcnt=mean(cnt))%>%plot(main="Otono 2012", ylab="Demanda", xlab="Dias de semana", col="firebrick3")
data%>%filter(season==4,yr==1,holiday==0, weekday>0,weekday<6)%>%group_by(weekday)%>%summarise(avgcnt=mean(cnt))%>%plot(main="Invierno 2012", ylab="Demanda", xlab="Dias de semana", col="deepskyblue")


par(mfrow=c(2,4))
data%>%filter(season==1,yr==0,workingday==0,holiday==0)%>%group_by(weekday)%>%summarise(avgcnt=mean(cnt))%>%plot(main="Primavera 2011", ylab="Demanda", xlab="Fin de semana", col="forestgreen")
data%>%filter(season==2,yr==0,workingday==0,holiday==0)%>%group_by(weekday)%>%summarise(avgcnt=mean(cnt))%>%plot(main="Verano 2011", ylab="Demanda", xlab="Fin de semana", col="darkorange1")
data%>%filter(season==3,yr==0,workingday==0,holiday==0)%>%group_by(weekday)%>%summarise(avgcnt=mean(cnt))%>%plot(main="Otono 2011", ylab="Demanda", xlab="Fin de semana", col="firebrick3")
data%>%filter(season==4,yr==0,workingday==0,holiday==0)%>%group_by(weekday)%>%summarise(avgcnt=mean(cnt))%>%plot(main="Invierno 2011", ylab="Demanda", xlab="Fin de semana", col="deepskyblue")

data%>%filter(season==1,yr==1,workingday==0,holiday==0)%>%group_by(weekday)%>%summarise(avgcnt=mean(cnt))%>%plot(main="Primavera 2012", ylab="Demanda", xlab="Fin de semana", col="forestgreen")
data%>%filter(season==2,yr==1,workingday==0,holiday==0)%>%group_by(weekday)%>%summarise(avgcnt=mean(cnt))%>%plot(main="Verano 2012", ylab="Demanda", xlab="Fin de semana", col="darkorange1")
data%>%filter(season==3,yr==1,workingday==0,holiday==0)%>%group_by(weekday)%>%summarise(avgcnt=mean(cnt))%>%plot(main="Otono 2012", ylab="Demanda", xlab="Fin de semana", col="firebrick3")
data%>%filter(season==4,yr==1,workingday==0,holiday==0)%>%group_by(weekday)%>%summarise(avgcnt=mean(cnt))%>%plot(main="Invierno 2012", ylab="Demanda", xlab="Fin de semana", col="deepskyblue")


par(mfrow=c(1,2))
data%>%filter(holiday==1,yr==0)%>%select(season,cnt)%>%plot(main="Festividades 2011", ylab="Demanda", xlab="Temporadas", col="red")
data%>%filter(holiday==1,yr==1)%>%select(season,cnt)%>%plot(main="Festividades 2012", ylab="Demanda", xlab="Temporadas", col="red")