IniziaInizia gratis

Visualizza le previsioni del modello random forest per le bici

Nel precedente esercizio, hai visto che il modello random forest per le bici ha avuto risultati migliori sui dati di agosto rispetto al modello quasipoisson, in termini di RMSE.

In questo esercizio, visualizzerai le previsioni di agosto del modello random forest in funzione del tempo. Il grafico corrispondente del modello quasipoisson che hai costruito in un esercizio precedente è disponibile per il confronto.

Ricorda che il modello quasipoisson ha identificato soprattutto l’andamento delle ore più tranquille e più affollate della giornata, ma ha in parte sottostimato i picchi di domanda. Vuoi vedere come si comporta il modello random forest a confronto.

Il data frame bikesAugust (con le previsioni) è a tua disposizione. Il grafico quasipoisson_plot delle previsioni del modello quasipoisson in funzione del tempo è mostrato.

Questo esercizio fa parte del corso

Supervised Learning in R: Regression

Visualizza il corso

Istruzioni dell'esercizio

  • Compila gli spazi per tracciare previsioni e conteggi reali per ora nei primi 14 giorni di agosto.
    • Esegui pivot_longer sulle colonne cnt e pred in una colonna chiamata value, con una chiave chiamata valuetype.
    • Traccia value in funzione di instant (giorno).

Come si comporta il modello random forest a confronto?

Esercizio pratico interattivo

Prova a risolvere questo esercizio completando il codice di esempio.

first_two_weeks <- bikesAugust %>%
  mutate(rf = bike_outcomesAugust$rf) %>%
  # Set start to 0, convert unit to days
  mutate(instant = (instant - min(instant)) / 24) %>% 
  # Filter for rows in the first two weeks
  filter(instant < 14) 
  # collect cnt and pred into a column named value with key valuetype
  pivot_longer(c('cnt', 'rf'), names_to = '___', values_to = '___')

# Plot predictions and cnt by date/time 
ggplot(___, aes(x = ___, y = ___, color = valuetype, linetype = valuetype)) + 
  geom_point() + 
  geom_line() + 
  scale_x_continuous("Day", breaks = 0:14, labels = 0:14) + 
  scale_color_brewer(palette = "Dark2") + 
  ggtitle("Predicted August bike rentals, Random Forest plot")
Modifica ed esegui il codice