Ett enkelt ridgeline-diagram

Nedanför finns kod för att skapa ett ridgeline-diagram som visar hur många procent över hastighetsgränsen förare körde när de stoppades, fördelat per veckodag.

Modifiera koden så att du anger kernelbredden (bandwidth) till ett specifikt värde, justerar x-axelns gränser för att ta bort de långa svansarna, och lägger till en subtitle som informerar läsaren om vilket bandwidth-värde du använder.

Den här övningen är en del av kursen

Visualiseringsmetoder i R

Visa kurs

Övningsinstruktioner

Ändra bandwidth till 3,5 i geom_density_ridges().
Sätt limits för x-skalan till 0 till 150.
Ge diagrammet undertiteln 'Gaussian kernel SD = 3.5'.

Interaktiv övning med praktiskt arbete

Testa den här övningen genom att slutföra den här exempelkoden.

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

Redigera och kör kod