Gráficas de Análisis de Bicicletas

a

[1] 24

1)¿Qué mes es el que tiene la mayor demanda?

Para visualizar que mes tuvo la mayor demanda, mostraremos una lista de la demanda por mes:

demanda_mes<-data_set$mnth
demanda_mes<-summary(factor(demanda_mes))
demanda_mes

   1    2    3    4    5    6    7    8    9   10   11   12 
1429 1341 1473 1437 1488 1440 1488 1475 1437 1451 1437 1483 

#barplot(demanda_mes, xlab="Mes", ylab="Demanda", main="Demanda por mes")

demanda_max<-which(demanda_mes == max(demanda_mes)) 
max_vals<-c(demanda_max)

La demanda máxima es de:

max(demanda_mes)

[1] 1488

La cual se puede observar en el mes:

max_vals[[1]]

[1] 5

Que representa el mes de Mayo.

Y en el mes:

max_vals[[2]]

[1] 7

Que representa el mes de Julio.

---

2)¿Qué rango de hora es la de mayor demanda?

Para visualizar que hora tuvo la mayor demanda, mostraremos la grafica de la demanda por hora:

demanda_max<-which(demanda_hora == max(demanda_hora)) 
max_vals<-c(demanda_max)

La demanda máxima se registra a las

max_vals

16 17 
17 18 

Con una demanda de:

max(demanda_hora)

[1] 730

3) ¿Qué temporada es la mas alta?

Para visualizar que temporada tuvo la mayor demanda, mostraremos una grafica de la demanda por temporada:

Con la información anterior podemos darnos cuenta que la temporada con mayor demanda fue en:

demanda_max<-which(demanda_temporada == max(demanda_temporada)) 
max_vals<-demanda_max
max_vals[[1]]

[1] 3

Que equivale a la temporada de otoño (fall).

En otoño se regustro una demanda de:

max(demanda_temporada)

[1] 4496

4)¿A que temperatura baja la demanda?

Para visualizar a que temperatura se tuvo la menor demanda, mostraremos una lista de la demanda dependiendo de la temperatura:

Con la información anterior podemos darnos cuenta que la demanda mas baja fue cuando la temperatura tenía un valores de:

#demanda_max<-which(demanda_temp == min(demanda_temp))
#names(demanda_max)

5)¿A que humedad baja la demanda?

Para visualizar a que humerdad se tuvo la menor demanda, mostraremos una grafica de la demanda dependiendo de la humedad: