Ajouter 1er et 3eme quartile + 1er et 9ème décile sur un histogramme

Bonjour,

Je souhaiterai afficher le 1er et 3ème quartile ainsi que le 1er et le 9ème décile sur un histogramme dans R.

Voici le code (en vert ce qui fonctionne) :

# Analyse de l'histogramme
g <- ggplot(df[with(df, df$utile == 1),]) +
aes(x = cible) +
geom_histogram(bins = 30L, fill = "#112446") +
theme_minimal()
g
# ajout des valeurs de position
g <- g + geom_vline(aes(xintercept = median(cible)), linewidth = 1,
color = "firebrick", linetype = "dashed") +
geom_vline(aes(xintercept = mean(cible)), linewidth = 1,
color = "grey")

+
#geom_vline(aes(xintercept = quantile(cible,probs=c(.1)), linewidth = 1,
# color = "green")


La partie rouge c'est le morceau que je souhaite ajouter pour les quartiles et déciles mais qui ne fonctionnent pas...
je sui archi débutante sur R et donc votre aide sera la bienvenue!
Merci d'avance!

Aurélie

C'est bon j'ai trouvé pourquoi cela ne fonctionnait pas. Parenthèse oubliée!!
Donc j'obtiens bien un histogramme avec 1 ligne pointillée tracée pour la moyenne et des lignes vertes pour le 1er et 3eme quartile (cf le code surligné en rouge)
Quand j'essaie de tout réunir en 1 ligne, cela ne fonctionne plus.
En écrivant çà par exemple à la place de ce qui est en rouge :
geom_vline(aes(xintercept = quantile(cible,probs=c(0.25 , 0.75))), linewidth = 1,
color = "green")+

Est ce possible de tout réunir en 1 ligne de code ?

# Analyse de l'histogramme
g <- ggplot(df[with(df, df$utile == 1),]) +
aes(x = cible) +
geom_histogram(bins = 30L, fill = "#112446") +
theme_minimal()
g
# ajout des valeurs de position
g <- g + geom_vline(aes(xintercept = median(cible)), linewidth = 1,
color = "firebrick", linetype = "dashed") +
geom_vline(aes(xintercept = mean(cible)), linewidth = 1,
color = "grey") +
geom_vline(aes(xintercept = quantile(cible,probs=c(0.75))), linewidth = 1,
color = "green")+
geom_vline(aes(xintercept = quantile(cible,probs=c(0.25))), linewidth = 1,
color = "green")