Ajouter un tapis de points (rug)
Le graphique que nous venons de créer est plutôt réussi, mais on entrevoit un léger indice de bimodalité entre les heures 10 et 15. Comme nous ne voyons qu'une « tache » de l'estimation de densité, il est difficile d'évaluer notre degré de confiance envers cette forme.
Atténuons cela avec deux ajustements.
D'abord, réduisez la valeur de alpha sur le tracé de densité pour 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 bien faire ressortir les chevauchements possibles 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.
Cette activité fait partie du cours
Les meilleures pratiques de visualisation avec R
Instructions de l’exercice
- Réglez l'alpha du tracé de densité à
0.7. - Ajoutez
geom_rug()au graphique. - Réglez l'alpha du rug plot à
0.5.
Exercice interactif pratique
Essayez cet exercice en complétant ce code d’exemple.
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")