LoslegenKostenlos starten

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>
Kurs ansehen

Ü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 Spalten cnt und pred in eine Spalte namens value mit einem Schlüssel namens valuetype umzuwandeln.
    • Plotte value als Funktion von instant (Tag).

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")
Code bearbeiten und ausführen