Vorhersagen des Random-Forest-Fahrradmodells visualisieren
In der vorherigen Übung hast du gesehen, dass das Random-Forest-Fahrradmodell bei den August-Daten in Bezug auf die RMSE besser abgeschnitten hat als das Quasipoisson-Modell.
In dieser Übung visualisierst du die August-Vorhersagen des Random-Forest-Modells in Abhängigkeit von der Zeit. Der entsprechende Plot aus dem Quasipoisson-Modell, den du in einer früheren Übung erstellt hast, steht dir zum Vergleich zur Verfügung.
Erinnere dich: Das Quasipoisson-Modell hat überwiegend das Muster aus ruhigen und geschäftigen Stunden im Tagesverlauf erkannt, aber die Spitzenlasten etwas unterschätzt. Du möchtest sehen, wie sich das Random-Forest-Modell dagegen schlägt.
Der Data Frame bikesAugust (mit Vorhersagen) wurde dir bereitgestellt. Der Plot quasipoisson_plot der Quasipoisson-Modellvorhersagen in Abhängigkeit von der Zeit wird angezeigt.
Diese Übung ist Teil des Kurses
<Kurs>Überwachtes Lernen in R: Regression</Kurs>Übungsanweisungen
- Fülle die Lücken aus, um die Vorhersagen und die tatsächlichen Zählungen stundenweise für die ersten 14 Tage im August zu plotten.
- Verwende
pivot_longer, um die Spaltencntundpredin eine Spalte namensvaluemit einem Schlüssel namensvaluetypeumzuwandeln. - Plotte
valueals Funktion voninstant(Tag).
- Verwende
Wie schneidet das Random-Forest-Modell ab?
Interaktive praktische Übung
Versuche dich an dieser Übung, indem du diesen Beispielcode vervollständigst.
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")