Pregunta10.R

day<-read.csv("day.csv")
hour<-read.csv("hour.csv")
#Demandas Promedio#
#1 Demanda por dia de la semana#
data<-tbl_df(day)
data%>% group_by(weekday) %>% summarise(prom=mean(cnt))%>%select(prom)%>%as.matrix()%>%as.vector()%>%barplot()
data%>% group_by(weekday) %>% summarise(prom=mean(cnt))%>%select(prom)%>%as.matrix()%>%as.vector()%>%barplot(names.arg=c("Mon","Tues","Wed","Thur","Frid","Sat","Sun"))
data%>% group_by(weekday) %>% summarise(prom=mean(cnt))%>%select(prom)%>%as.matrix()%>%as.vector()%>%barplot(names.arg=c("Mon","Tues","Wed","Thur","Frid","Sat","Sun"), col=c("yellow","pink","blue","red","green","orange","purple"))
data%>% group_by(weekday) %>% summarise(prom=mean(cnt)/100)%>%select(prom)%>%as.matrix()%>%as.vector()%>%barplot(names.arg=c("Mon","Tues","Wed","Thur","Frid","Sat","Sun"), col=c("yellow","pink","blue","red","green","orange","purple"))
data%>% group_by(weekday) %>% summarise(prom=mean(cnt)/100)%>%select(prom)%>%as.matrix()%>%as.vector()%>%barplot(names.arg=c("Mon","Tues","Wed","Thur","Frid","Sat","Sun"), col=c("yellow","pink","blue","red","green","orange","purple"),main="Demanda promedio por dia")
jpeg(filename="/Users/MaferCordova/Desktop/Bike-Sharing-Dataset/promweek.jpeg")
data%>% group_by(weekday) %>% summarise(prom=mean(cnt)/100)%>%select(prom)%>%as.matrix()%>%as.vector()%>%barplot(names.arg=c("Mon","Tues","Wed","Thur","Frid","Sat","Sun"), col=c("yellow","pink","blue","red","green","orange","purple"),main="Demanda promedio por dia")
dev.off()

#2 Demanda por hora#
hour %>% select (hr,cnt)
hour %>% group_by(hr) %>% select (hr,cnt) %>% summarise(prom=mean(cnt))
hour %>% group_by(hr) %>% select (hr,cnt) %>% summarise(prom=mean(cnt)) %>% plot()
jpeg(filename="/Users/MaferCordova/Desktop/Bike-Sharing-Dataset/promhr.jpeg")
hour %>% group_by(hr) %>% select (hr,cnt) %>% summarise(prom=mean(cnt)/10) %>% plot(xlab="24 horas", ylab="Demanda", main="Demanda Promedio por Hora")
dev.off()

#3 Demanda por mes#
day %>% select(mnth,cnt)
day %>% group_by(mnth) %>% select(cnt) %>% summarise(prom=mean(cnt)) %>% plot(xlab="Meses del a??o",ylab="Demanda Promedio",main="Demanda Promedio por Mes")
jpeg(filename="/Users/MaferCordova/Desktop/Bike-Sharing-Dataset/prommnth.jpeg")
day %>% group_by(mnth)%>%summarise(prom=mean(cnt)/100)%>%select(prom)%>%as.matrix()%>%as.vector()%>%barplot(names.arg=c("Ene","Feb","Mar","Abr","May","Jun","Jul","Agos","Sept","Oct","Nov","Dic"), col=c("pink","yellow","red","brown","green","orange","black","grey","purple","blue","pink","yellow"),main="Demanda Promedio por Mes")
dev.off()

#4 Demanda por a??o#
day %>% select(yr,cnt)
day %>% group_by(yr) %>% summarise(prom=mean(cnt)/100)%>%select(prom)%>%as.matrix()%>%as.vector()%>%barplot(names.arg=c("Year 1","Year 2"), col=c("pink","blue"),main="Demanda Promedio por Anio")
jpeg(filename="/Users/MaferCordova/Desktop/Bike-Sharing-Dataset/prommnth.jpeg")
day %>% group_by(yr) %>% summarise(prom=mean(cnt)/100)%>%select(prom)%>%as.matrix()%>%as.vector()%>%barplot(names.arg=c("Year 1","Year 2"), col=c("pink","blue"),main="Demanda Promedio por Anio")
dev.off()

#5 Demanda por estacion#
day %>% select(season,cnt)
jpeg(filename="/Users/MaferCordova/Desktop/Bike-Sharing-Dataset/prommnth.jpeg")
day%>%group_by(season)%>%summarise(prom=mean(cnt)/100)%>%select(prom)%>%as.matrix()%>%as.vector()%>% barplot(names.arg=c("Spring","Summer","Fall","Winter"),col=c("yellow","green","purple","red"),main="Demanda Promedio por Estacion del anio")
dev.off()