Bắt đầu ngayBắt đầu miễn phí

Trực quan hóa mô hình xgboost cho dữ liệu thuê xe đạp

Bạn đã thấy ba cách khác nhau để xây dựng mô hình cho dữ liệu thuê xe đạp. Trong ví dụ này, bạn thấy mô hình gradient boosting có RMSE nhỏ nhất. Để kết thúc khóa học, hãy so sánh dự đoán của mô hình gradient boosting với hai mô hình còn lại theo thời gian.

Hoàn thành bài tập này là bạn đã hoàn thành khóa học. Chúc mừng bạn! Giờ đây bạn có công cụ để áp dụng nhiều phương pháp khác nhau cho các bài toán hồi quy của mình.

Data frame bikesAugust kèm dự đoán đã được nạp sẵn. Các biểu đồ quasipoisson_plotrandomforest_plot cũng đã sẵn sàng.

Bài tập này là một phần của khóa học

Học có giám sát với R: Hồi quy

Xem khóa học

Hướng dẫn bài tập

  • In quasipoisson_plot để xem lại hành vi của mô hình quasipoisson.
  • In randomforest_plot để xem lại hành vi của mô hình random forest.
  • Điền vào chỗ trống để vẽ dự đoán của gradient boosting và số đếm thực tế theo giờ cho 14 ngày đầu tháng 8.
    • Dùng pivot_longer() để gộp tên các cột cntgbm vào một cột giá trị tên value, với khóa tên valuetype.
    • Vẽ value theo instant (ngày).

Mô hình gradient boosting so với các mô hình trước như thế nào?

Bài tập tương tác thực hành trực tiếp

Hãy thử làm bài tập này bằng cách hoàn thành đoạn mã mẫu này.

# 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")
Chỉnh sửa và Chạy Mã