Pregunta3.R

#CNT año 1#
par(mfrow=c(2,1))
data<-tbl_df(day)
data%>%filter(yr==1)%>%group_by(season)%>%summarise(demanda=sum(cnt))
data%>%filter(yr==1)%>%group_by(season)%>%summarise(demanda=sum(cnt))%>%select(demanda)
data%>%filter(yr==1)%>%group_by(season)%>%summarise(demanda=sum(cnt)/100000)%>%select(demanda)%>%as.matrix()%>%as.vector()%>%max()
data%>%filter(yr==1)%>%group_by(season)%>%summarise(demanda=sum(cnt)/100000)%>%select(demanda)%>%as.matrix()%>%as.vector()
data%>%filter(yr==1)%>%group_by(season)%>%summarise(demanda=sum(cnt)/100000)%>%select(demanda)%>%as.matrix()%>%as.vector()%>%barplot(names.arg=c("Primavera", "Verano", "Otono", "Invierno"), col=c("yellow", "red", "green", "blue"), main="Temporada con la demanda mas alta 2012", ylab="Demanda", xlab="Temporada")
#En la grafica se puede observar que la temporada del a;o que tiene mas demanda es la numero 3, que es de los dias del 21 de Junio al 22 de septiembre#


#CNT año 0#
data<-tbl_df(day)
data%>%filter(yr==0)%>%group_by(season)%>%summarise(demanda=sum(cnt))
data%>%filter(yr==0)%>%group_by(season)%>%summarise(demanda=sum(cnt))%>%select(demanda)
data%>%filter(yr==0)%>%group_by(season)%>%summarise(demanda=sum(cnt)/100000)%>%select(demanda)%>%as.matrix()%>%as.vector()%>%max()
data%>%filter(yr==0)%>%group_by(season)%>%summarise(demanda=sum(cnt)/100000)%>%select(demanda)%>%as.matrix()%>%as.vector()
data%>%filter(yr==0)%>%group_by(season)%>%summarise(demanda=sum(cnt)/100000)%>%select(demanda)%>%as.matrix()%>%as.vector()%>%barplot(names.arg=c("Primavera", "Verano", "Otono", "Invierno"), col=c("yellow", "red", "green", "blue"), main="Temporada con la demanda mas alta - 2011", ylab="Demanda", xlab="Temporada")