Changes between Version 48 and Version 49 of Recette BilanLot
- Timestamp:
- Oct 23, 2016 10:02:08 PM (8 years ago)
Legend:
- Unmodified
- Added
- Removed
- Modified
-
Recette BilanLot
v48 v49 22 22 23 23 {{{ 24 #!r 24 25 # voici ci dessous les codes ayant conduit à produire les graphiques proposés : density 25 26 g<-ggplot(bilan_lot@data,aes(x=val_quant)) … … 56 57 * Ajoutons un titre et des légendes (attention requiert ggplot version 0.9.3) : 57 58 {{{ 59 #!r 58 60 bilan_lot<-get("bilan_lot",envir_stacomi) 59 61 g<-ggplot(bilan_lot@data) … … 72 74 }}} 73 75 {{{ 76 #!r 74 77 bilan_lot<-get("bilan_lot",envir_stacomi) 75 78 g<-ggplot(bilan_lot@data) … … 84 87 * essai = 3 85 88 {{{ 89 #!r 86 90 bilan_lot<-get("bilan_lot",envir_stacomi) 87 91 g<-ggplot(bilan_lot@data) … … 99 103 * essai = 4 100 104 {{{ 105 #!r 101 106 bilan_lot<-get("bilan_lot",envir_stacomi) 102 107 g<-ggplot(bilan_lot@data) … … 112 117 * essai = 5 113 118 {{{ 119 #!r 114 120 bilan_lot<-get("bilan_lot",envir_stacomi) 115 121 g<-ggplot(bilan_lot@data[bilan_lot@data$annee%in%2005:2011,]) … … 133 139 * essai =5 134 140 {{{ 141 #!r 135 142 g+geom_histogram(aes(x=val_quant,colour=annee,fill=annee),alpha='0.2',position='identity')+ 136 143 ggtitle("Structure en taille des Aloses Essai 5")+xlab("Tailles (mm)")+ylab("Effectif")+ … … 147 154 * essai=7 148 155 {{{ 156 #!r 149 157 g+geom_point(aes(x=annee,y=val_quant),alpha=1,position="jitter")+ 150 158 stat_boxplot(aes(x=annee,y=val_quant),colour="red",fill="blue",outlier.colour="red",alpha=0.4)+ … … 156 164 On reprend l'exemple de tout à l'heure avec la formule suivante 157 165 {{{ 166 #!r 158 167 g+stat_density(aes(x=val_quant,fill=annee),position='stack') + 159 168 ggtitle("Structure en taille des Aloses Essai 7")+xlab("Taille")+ylab("Densite")+ … … 165 174 le jeu de données qui se trouve à l'intérieur de p, le modififier et le repasser à l'objet p. 166 175 {{{ 176 #!r 167 177 donnees<-bilan_lot@data # on récupère les données. 168 178 donnees$annee1<-donnees$annee # on crée une nouvelle variable annee1.
