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
R'de Görselleştirme En İyi Uygulamaları
kursunun bir parçasıdırEgzersiz 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ı interaktif egzersiz
Bu örnek kodu tamamlayarak bu egzersizi bitirin.
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