Afficher une légende sur un histogramme

Bonjour,

J'ai créé un histogramme sur lequel j'ai tracé 1 ligne pointillée pour la moyenne, 2 lignes vertes pour les 1er et 3eme quartiles et 2 lignes jaune pour les 1er et 9eme decile.

Je voudrais pouvoir afficher une légende ou une étiquette en haut des traits.

Comment feriez-vous?

Voici le 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")+
geom_vline(aes(xintercept = quantile(cible,probs=c(0.10))), linewidth = 1,
color = "yellow")+
geom_vline(aes(xintercept = quantile(cible,probs=c(0.90))), linewidth = 1,
color = "yellow")

g



Merci pour votre aide!!!