Přidáme rug plot
Graf, který jsme právě vytvořili, vypadá docela dobře – můžeme ale zaznamenat náznaky bimodality mezi 10. a 15. hodinou. Protože vidíme jen rozmazaný odhad hustoty, je těžké odhadnout, jak moc se na tvar spolehnou.
Pojďme to napravit dvěma kroky.
Nejdřív sniž hodnotu alpha v grafu hustoty, abys mohl/a přesněji lokalizovat tato maxima pomocí mřížky na pozadí.
Potom přidej rug plot pod graf hustoty pomocí geom_rug(). Aby bylo vidět případné překryvy v rug plotu, nastav jeho alpha na 0.5.
Dataframe z předchozího cvičení – truck_speeding – je už načtený.
Toto cvičení je součástí kurzu
Vizualizace dat v R – nejlepší postupy
Pokyny k cvičení
- Nastav alpha grafu hustoty na
0.7. - Přidej
geom_rug()do grafu. - Nastav alpha rug plotu na
0.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.
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")