LoslegenKostenlos starten

Visualisiere das xgboost-Modell für Fahrradverleih

du hast jetzt drei verschiedene Möglichkeiten gesehen, die Daten zum Fahrradverleih zu modellieren. In diesem Beispiel hattest du gesehen, dass das Gradient-Boosting-Modell den kleinsten RMSE hatte. Zum Abschluss des Kurses vergleichen wir die Vorhersagen des Gradient-Boosting-Modells mit den beiden anderen Modellen in Abhängigkeit von der Zeit.

Wenn du diese Übung abschließt, hast du den Kurs abgeschlossen. Glückwunsch! Jetzt hast du die Werkzeuge, um verschiedene Ansätze auf deine Regressionsaufgaben anzuwenden.

Der Data Frame bikesAugust mit Vorhersagen wurde vorab geladen. Die Plots quasipoisson_plot und randomforest_plot sind ebenfalls verfügbar.

Diese Übung ist Teil des Kurses

<Kurs>Überwachtes Lernen in R: Regression</Kurs>
Kurs ansehen

Übungsanweisungen

  • Gib quasipoisson_plot aus, um das Verhalten des Quasi-Poisson-Modells zu überprüfen.
  • Gib randomforest_plot aus, um das Verhalten des Random-Forest-Modells zu überprüfen.
  • Fülle die Lücken aus, um die Gradient-Boosting-Vorhersagen und die tatsächlichen Zählwerte pro Stunde für die ersten 14 Tage im August zu plotten.
    • pivot_longer() die Spaltennamen cnt und gbm in eine Spalte namens value, mit einem Schlüssel namens valuetype.
    • Plotte value als Funktion von instant (Tag).

Wie schneidet das Gradient-Boosting-Modell im Vergleich zu den vorherigen Modellen ab?

Interaktive praktische Übung

Versuche dich an dieser Übung, indem du diesen Beispielcode vervollständigst.

# Print quasipoisson_plot
___

# Print randomforest_plot
___

# Plot predictions and actual bike rentals as a function of time (days)
bikesAugust %>% 
  mutate(instant = (instant - min(instant))/24) %>%  # set start to 0, convert unit to days
  filter(instant < 14) %>% # first two weeks
  pivot_longer(c(___, ___), names_to = ___, values_to = ___) %>%
  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, Gradient Boosting model")
Code bearbeiten und ausführen