Discussion :

[roxanne.A]

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:

Script

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :



Et arriver a ça :



Merci d'avance pour votre aide

Roxanne

[tototode]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[roxanne.A]

Merci pour votre réponse. ça marche