aire colorée entre courbe et droite GGplot

Bonjour,
Je travaille depuis peu sur R et plus particulièrement sur ggplot2 et là je ne trouve pas de solution a mon problème.

Je souhaite mettre dans une autre couleur l’aire :

*aire sous la courbe et inférieur à la droite qui a pour abscisse x = X2.5. (qui correspond à la valeur= 194.315).

*aire sous la courbe et supérieure à la droite qui a pour abscisse x = X97.5. (qui correspond à la valeur= 426, 6675)


Base de donnée:
Pièce jointe 299960
Script

Code:

---

1 2 3

densiteA= densitei [densitei$Model == "KD" ,] A <- ggplot(densiteA, aes(x=value, y=density)) + geom_area(color="black", fill="grey", alpha=1/4) + geom_point(aes(x = estimation, y=0), color="red") + geom_line(aes(x = X2.5.)) + geom_line(aes(x = X97.5.)) + geom_line(aes(x = estimation-ET_H), linetype = "dashed") + geom_line(aes(x=estimation+ET_H), linetype = "dashed") + geom_point(aes(x=X50., y=0)) + facet_wrap(Model ~ parametre2, scales = "free",ncol = 6, nrow = 1, shrink = TRUE) +theme_light() A

---

Soit partir de ça :
Pièce jointe 299968


Et arriver a ça :
Pièce jointe 299973


Merci d'avance pour votre aide :)

Roxanne

Bonjour,

une possibilité consiste a rajouter un geom_area avec pour data que la partie de ton jeu de données dont les x sont < X2.5. :

Code:

---

1 2 3

A <- ggplot(densiteA, aes(x=value, y=density)) + geom_area(color="black", fill="grey", alpha=1/4) + geom_area(data = densiteA[densiteA$x < densiteA$X2.5.,], fill = "red") + ...

---

Tu fais la même chose mais avec x > X97.5.

Cordialement

Merci pour votre réponse. ça marche ;)