Základní ridgeline plot

Níže je připravený kód pro vytvoření ridgeline plotu, který zobrazuje procentuální překročení rychlosti u řidičů zastavených policií podle dne v týdnu.

Uprav kód tak, aby šířka kernelu (bandwidth) byla nastavena na konkrétní hodnotu, omeč limity osy x, aby zmizely dlouhé chvosty, a přidej subtitle informující čtenáře o použité šířce kernelu.

Toto cvičení je součástí kurzu

Vizualizace dat v R – nejlepší postupy

Zobrazit kurz

Pokyny k cvičení

Změň bandwidth na 3,5 ve funkci geom_density_ridges().
Nastav limits osy x od 0 do 150.
Přidej grafu podtitulek 'Gaussian kernel SD = 3.5'.

Interaktivní cvičení na vyzkoušení si v praxi

Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.

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

Upravit a spustit kód