Un grafic ridgeline de bază

Codul furnizat creează un grafic ridgeline care analizează procentul cu care șoferii depășeau limita de viteză în momentul opririi, în funcție de ziua săptămânii.

Modifică codul pentru a seta lățimea kernelului (bandwidth) la o valoare specificată, pentru a schimba limitele axei x și a elimina cozile lungi, și adaugă un subtitle care să îi informeze pe cititori despre lățimea de kernel utilizată.

Acest exercițiu face parte din cursul

Cele mai bune practici de vizualizare în R

Vezi cursul

Instrucțiuni pentru exercițiu

Schimbă bandwidth-ul la 3.5 în geom_density_ridges().
Setează limits ale scalei x la 0 până la 150.
Adaugă graficului subtitlul 'Gaussian kernel SD = 3.5'.

Exercițiu interactiv practic

Încearcă acest exercițiu completând acest cod de exemplu.

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

Editează și rulează codul