Ajouter un tapis (rug)
Le graphique que nous venons de créer est plutôt réussi, mais on devine un léger indice de bimodalité entre 10 et 15 heures. Comme nous observons uniquement la « tache » d’une estimation de densité, il est difficile d’évaluer notre confiance dans cette forme.
Allégeons cela en faisant deux choses.
D’abord, réduisez l’alpha du tracé de densité pour pouvoir repérer plus précisément ces pics à l’aide de la grille d’arrière-plan.
Ensuite, ajoutez un rug plot sous le tracé de densité avec geom_rug(). Pour mettre en évidence les éventuels chevauchements dans le rug plot, fixez son alpha à 0.5.
La trame de données que vous avez créée à l’exercice précédent : truck_speeding a déjà été chargée pour vous.
Cet exercice fait partie du cours
Bonnes pratiques de visualisation avec R
Instructions
- Définissez l’alpha du tracé de densité à
0.7. - Ajoutez
geom_rug()au graphique. - Définissez l’alpha du rug plot à
0.5.
Exercice interactif pratique
Essayez cet exercice en complétant cet exemple de code.
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")