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>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_longeraux colonnescntetpredpour les rassembler dans une colonne appeléevalue, avec une clé appeléevaluetype. - Tracez
valueen fonction deinstant(jour).
- Appliquez
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")