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_plot và randomforest_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
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ộtcntvàgbmvào một cột giá trị tênvalue, với khóa tênvaluetype. - Vẽ
valuetheoinstant(ngày).
- Dùng
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")