Visualize the xgboost bike rental model
You've now seen three different ways to model the bike rental data. For this example, you've seen that the gradient boosting model had the smallest RMSE. To finish up the course, let's compare the gradient boosting model's predictions to the other two models as a function of time.
On completing this exercise, you will have completed the course. Congratulations! Now you have the tools to apply a variety of approaches to your regression tasks.
The data frame bikesAugust with predictions,has been pre-loaded. The plots quasipoisson_plot and randomforest_plot are also available.
Este exercício faz parte do curso
Supervised Learning in R: Regression
Instruções do exercício
- Print quasipoisson_plotto review the quasipoisson model's behavior.
- Print randomforest_plotto review the random forest model's behavior.
- Fill in the blanks to plot the gradient boosting predictions and actual counts by hour for the first 14 days of August.- pivot_longer()the- cntand- gbmcolumn names into a column called- value, with a key called- valuetype.
- Plot valueas a function ofinstant(day).
 
How does the gradient boosting model compare to the previous models?
Exercício interativo prático
Experimente este exercício completando este código de exemplo.
# 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")