Basit bir ridgeline grafiği
Haftanın gününe göre, hız sınırını aştığı yüzde üzerinden çevrilen sürücüleri gösteren bir ridgeline grafiği oluşturmak için sağlanan bir kod var.
Kodu düzenleyerek çekirdek genişliğini (bandwidth) belirtilen bir değere ayarla, uzun kuyrukları kırpmak için x ekseni limitlerini değiştir ve kullandığın bandwidth değerini okura bildiren bir subtitle ekle.
Bu egzersiz, kursun bir parçasıdır
R'de Görselleştirme En İyi Uygulamaları
Egzersiz talimatları
geom_density_ridges()içindebandwidthdeğerini 3.5 olarak değiştir.- X ölçeğinin
limitsaralığını0ile150olarak ayarla. - Grafiğe şu altyazıyı ver:
'Gaussian kernel SD = 3.5'.
Uygulamalı etkileşimli egzersiz
Bu egzersizi bu örnek kodu tamamlayarak deneyin.
library(ggridges)
md_speeding %>%
mutate(day_of_week = factor(day_of_week, levels = c("Mon","Tues","Wed","Thu","Fri","Sat","Sun") )) %>%
ggplot(aes( x = percentage_over_limit, y = day_of_week)) +
# Set bandwidth to 3.5
geom_density_ridges() +
# add limits of 0 to 150 to x-scale
scale_x_continuous()
# provide subtitle with bandwidth