Re à tous !
Ma question se précise dans la même idée de départ :
Voici une partie de mes données. En gros j'ai 6 jeux de données sous des conditions différentes (je voudrais faire 1 graphique en 6 panels dont le premier panel serait celui-ci).
Code : Tout sélectionner
Nb_observation <- as.vector(c( 2, 0, 6, 2, 7, 1, 8, 0, 2, 1, 1, 3, 11, 5, 9, 6, 4, 0, 7, 9))
Nb_observateur <- as.vector(c(31, 35, 35, 35, 39, 39, 39, 39, 39, 41, 41, 42, 43, 43, 45, 45, 47, 48, 51, 51))
inf20 <- as.vector(c(2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 3, 4, 4, 3, 5, 4))
sup20 <- as.vector(c(3, 4, 4, 4, 5, 4, 4, 5, 4, 4, 5, 5, 5, 6, 5, 6, 6, 5, 7, 6))
inf40 <- as.vector(c(1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, 3, 3, 3, 4, 3))
sup40 <- as.vector(c(4, 5, 5, 5, 6, 5, 5, 6, 5, 5, 6, 6, 6, 7, 6, 7, 7, 7, 9, 7))
inf60 <- as.vector(c(1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 2))
sup60 <- as.vector(c(5, 6, 6, 6, 8, 7, 7, 7, 7, 7, 7, 7, 8, 9, 8, 9, 9, 9, 11, 9))
inf90 <- as.vector(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 1, 1))
sup90 <- as.vector(c(10, 11, 11, 11, 15, 13, 13, 14, 12, 13, 13, 13, 14, 17, 15, 17, 17, 16, 21, 18))
data <- cbind.data.frame(Nb_observation, Nb_observateur, inf20, sup20, inf40, sup40, inf60 , sup60, inf90 , sup90)
Voila le graphique que j'ai fait :
Code : Tout sélectionner
plot(data$Nb_observateur, data$Nb_observation, type = "n", xlab = "Nombre d'observateurs", ylab = "Nombre d'observations", main = "Pour la condition Ia et sous-condition a")
lines(data$Nb_observateur, data$inf20, col = "dark red")
lines(data$Nb_observateur, data$sup20, col = "dark red")
lines(data$Nb_observateur, data$inf40, col = "red")
lines(data$Nb_observateur, data$sup40, col = "red")
lines(data$Nb_observateur, data$inf60, col = "dark orange")
lines(data$Nb_observateur, data$sup60, col = "dark orange")
lines(data$Nb_observateur, data$inf90, col = "yellow")
lines(data$Nb_observateur, data$sup90, col = "yellow")
Il y a deux choses que j'aimerais faire (et donc la je pense que ça pourrait être fait par ggplot mais je n'y arrive pas) :
Dans l'idée du graphique du script que je vous ai envoyé, les "inf" et "sup" sont des bornes des simulations de mon modèle dans l'IC 20% puis 40% puis 60% et enfin 90%. J'aimerais dans un premier temps lisser chacune des courbes ("smooth" ? je ne sais pas s'il existe plusieurs méthodes), et ensuite j'aimerais colorier la surface entre 2 courbes du même IC, par exemple que la surface entre data$inf90 et data$sup90 soit jaune, la surface entre "data$inf60" et "data$60" soit orange etc. Et j'aimerais superposer chacune de ces surfaces coloriées, s'il vous plait.
(ps : il n'y a pas de médiane ou de moyenne dans mon graphique, c'est normal).
Je ferai ensuite le même travail pour chacune des conditions.
Merci pour votre aide !