Visualisasikan model penyewaan sepeda xgboost
Sekarang Anda telah melihat tiga cara berbeda untuk memodelkan data penyewaan sepeda. Pada contoh ini, Anda melihat bahwa model gradient boosting memiliki RMSE terkecil. Untuk menutup kursus, mari bandingkan prediksi model gradient boosting dengan dua model lainnya sebagai fungsi waktu.
Setelah menyelesaikan latihan ini, Anda telah menuntaskan kursus. Selamat! Kini Anda memiliki perangkat untuk menerapkan berbagai pendekatan pada tugas regresi Anda.
Data frame bikesAugust yang berisi prediksi telah dimuat sebelumnya. Plot quasipoisson_plot dan randomforest_plot juga tersedia.
Latihan ini adalah bagian dari kursus
Supervised Learning di R: Regresi
Petunjuk latihan
- Cetak
quasipoisson_plotuntuk meninjau perilaku model quasipoisson. - Cetak
randomforest_plotuntuk meninjau perilaku model random forest. - Lengkapi bagian yang kosong untuk memplot prediksi gradient boosting dan jumlah aktual per jam untuk 14 hari pertama bulan Agustus.
pivot_longer()nama kolomcntdangbmke dalam sebuah kolom bernamavalue, dengan kunci bernamavaluetype.- Plot
valuesebagai fungsi dariinstant(hari).
Bagaimana perbandingan model gradient boosting dengan model-model sebelumnya?
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
# 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")