| 96 | |
| 97 | == script pour Brice pour avoir la structure en taille + un bilan interannuel dans la même fenêtre == |
| 98 | On reprend l'exemple de tout à l'heure avec la formule suivante |
| 99 | {{{ |
| 100 | p+stat_density(aes(x=val_quant,fill=annee),position='stack')+facet_grid(annee ~ .) + |
| 101 | opts(title="Structure en taille des Aloses essai 8",labels = c(x = "Tailles (mm)", y = "Densite",annee="Annees"))+ |
| 102 | scale_fill_brewer(palette = "Spectral") |
| 103 | }}} |
| 104 | |
| 105 | * essai =8 |
| 106 | Brice veut le détail des années + un graphique qui fait le bilan de toutes les années. Pour faire ça il faut récupérer |
| 107 | le jeu de données qui se trouve à l'intérieur de p, le modififier et le repasser à l'objet p. |
| 108 | {{{ |
| 109 | donnees<-p[["data"]] # on récupère les données. |
| 110 | donnees$annee1<-donnees$annee # on crée une nouvelle variable annee1. |
| 111 | copie_de_donnees<-donnees # on copie le jeu de données. |
| 112 | copie_de_donnees$annee1<-"all" #dans ce nouveau jeu, on remplace les valeurs des annees par "all" |
| 113 | p<-p%+%rbind(donnees,copie_de_donnees) # on raboute le nouveau et l'anciens jeu (fonction rbind = row bind, coller les lignes) |
| 114 | # la formule %+% permet de remplacer le jeu de données dans un objet de type ggplot. |
| 115 | p+stat_density(aes(x=val_quant,fill=annee),position='stack')+facet_grid(annee1 ~ .,scales="free") + |
| 116 | opts(title="Structure en taille des Aloses essai 8",labels = c(x = "Tailles (mm)", y = "Densite",annee="Annees"))+ |
| 117 | scale_fill_brewer(palette = "Spectral") |
| 118 | }}} |
| 119 | [[image(source:stacomi/trunk/docs/trac/Bilan_lot_recette12.jpg)]] |