CommencerCommencez gratuitement

Visualiser les prédictions du modèle random forest pour les vélos

Dans l’exercice précédent, vous avez constaté que le modèle random forest pour les vélos s’en sortait mieux sur les données d’août que le modèle quasipoisson, en termes de RMSE.

Dans cet exercice, vous allez visualiser les prédictions du modèle random forest pour le mois d’août en fonction du temps. Le graphique correspondant du modèle quasipoisson que vous avez construit précédemment est disponible pour comparaison.

Rappelez-vous que le modèle quasipoisson captait surtout l’alternance des heures calmes et chargées dans la journée, mais sous-estimait quelque peu les pics de demande. Vous souhaitez voir comment le modèle random forest se compare.

Le tableau bikesAugust (avec les prédictions) est mis à votre disposition. Le graphique quasipoisson_plot des prédictions du modèle quasipoisson en fonction du temps est affiché.

Cet exercice fait partie du cours

<cours>Apprentissage supervisé en R : Régression</cours>
Voir le cours

Instructions de l’exercice

  • Complétez les blancs pour tracer les prédictions et les comptes réels par heure pour les 14 premiers jours d’août.
    • Appliquez pivot_longer aux colonnes cnt et pred pour les rassembler dans une colonne appelée value, avec une clé appelée valuetype.
    • Tracez value en fonction de instant (jour).

Comment le modèle random forest se compare-t-il ?

Exercice interactif pratique

Essayez cet exercice en complétant ce code d’exemple.

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")
Modifier et exécuter le code