Menambahkan rug plot
Plot yang baru kita buat terlihat cukup bagus, tetapi kita melihat sedikit indikasi bimodalitas antara pukul 10 dan 15. Karena kita hanya melihat gumpalan dari estimasi kerapatan, sulit untuk mengetahui seberapa yakin kita terhadap bentuk tersebut.
Mari kita atasi hal ini dengan melakukan beberapa langkah.
Pertama, turunkan nilai alpha pada plot kerapatan agar kita dapat menemukan puncak-puncak tersebut dengan lebih akurat menggunakan kisi latar belakang.
Selanjutnya, tambahkan rug plot di bawah plot kerapatan menggunakan geom_rug(). Untuk menampilkan tumpang tindih yang mungkin terjadi pada rug plot, tetapkan alpha-nya menjadi 0.5.
Bingkai data yang Anda buat pada latihan sebelumnya: truck_speeding telah dimuat untuk Anda.
Latihan ini adalah bagian dari kursus
Praktik Terbaik Visualisasi di R
Petunjuk latihan
- Tetapkan alpha plot kerapatan menjadi
0.7. - Tambahkan
geom_rug()ke plot. - Tetapkan alpha rug plot menjadi
0.5.
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
ggplot(truck_speeding, aes(x = hour_of_day)) +
# Adjust opacity to see gridlines with alpha = 0.7
geom_density(bw = 1.5, fill = 'steelblue', ___) +
# add a rug plot using geom_rug to see individual data points, set alpha to 0.5.
___ +
labs(title = 'Citations by hour', subtitle = "Gaussian kernel SD = 1.5")