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 merupakan bagian dari kursus
Praktik Terbaik Visualisasi di R
Instruksi latihan
- Tetapkan alpha plot kerapatan menjadi
0.7. - Tambahkan
geom_rug()ke plot. - Tetapkan alpha rug plot menjadi
0.5.
Latihan interaktif langsung praktik
Cobalah latihan ini dengan melengkapi kode contoh ini.
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")