Lägg till ett rug plot
Diagrammet vi just skapade ser ganska bra ut, men vi kan ana en svag bimodalitet mellan klockan 10 och 15. Eftersom vi bara ser en suddig täthetsuppskattning är det svårt att avgöra hur tillförlitlig den formen är.
Låt oss åtgärda det på ett par sätt.
Sänk först alpha-värdet på täthetskurvan så att vi lättare kan lokalisera topparna mot bakgrundsgallerlinjen.
Lägg sedan till ett rug plot under täthetskurvan med geom_rug(). Ange alpha till 0.5 för rug plottet för att synliggöra eventuell överlappning.
Dataramen du skapade i föregående övning, truck_speeding, är redan inläst.
Den här övningen är en del av kursen
Visualiseringsmetoder i R
Övningsinstruktioner
- Sätt alpha för täthetskurvan till
0.7. - Lägg till
geom_rug()i diagrammet. - Sätt alpha för rug plottet till
0.5.
Interaktiv övning med praktiskt arbete
Testa den här övningen genom att slutföra den här exempelkoden.
ggplot(truck_speeding, aes(x = hour_of_day)) +
# Adjust opacity to see gridlines with alpha = 0.7
geom_density(bw = 1.5, fill = 'steelblue', ___) +
# add a rug plot using geom_rug to see individual data points, set alpha to 0.5.
___ +
labs(title = 'Citations by hour', subtitle = "Gaussian kernel SD = 1.5")