Changes between Version 46 and Version 47 of Recette BilanLot


Ignore:
Timestamp:
Dec 24, 2012 10:53:16 PM (12 years ago)
Author:
cedric
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • Recette BilanLot

    v46 v47  
    147147 * essai=7 
    148148{{{ 
    149 p+geom_point(aes(x=annee,y=val_quant),alpha=1,position="jitter")+stat_boxplot(aes(x=annee,y=val_quant),colour="red",fill="blue",outlier.colour="red",alpha=0.4)+ 
    150                 opts(title="Structure en taille des Aloses Essai 7", 
    151                                 labels = c(x = "Annee", y = "Taille")) 
     149g+geom_point(aes(x=annee,y=val_quant),alpha=1,position="jitter")+ 
     150                stat_boxplot(aes(x=annee,y=val_quant),colour="red",fill="blue",outlier.colour="red",alpha=0.4)+ 
     151                ggtitle("Structure en taille des Aloses Essai 7")+xlab("Annees")+ylab("Taille") 
    152152}}} 
    153153 [[Image(source:stacomi/trunk/docs/trac/Bilan_lot_recette11.jpg,400px)]] 
     
    156156On reprend l'exemple de tout à l'heure avec la formule suivante 
    157157{{{ 
    158 p+stat_density(aes(x=val_quant,fill=annee),position='stack')+facet_grid(annee ~ .) + 
    159                 opts(title="Structure en taille des Aloses essai 8",labels = c(x = "Tailles (mm)", y = "Densite",annee="Annees"))+ 
     158g+stat_density(aes(x=val_quant,fill=annee),position='stack') + 
     159                ggtitle("Structure en taille des Aloses Essai 7")+xlab("Taille")+ylab("Densite")+ 
    160160                scale_fill_brewer(palette = "Spectral") 
    161161}}} 
     
    165165le jeu de données qui se trouve à l'intérieur de p, le modififier et le repasser à l'objet p. 
    166166{{{ 
    167 donnees<-p[["data"]] # on récupère les données. 
     167donnees<-bilan_lot@data # on récupère les données. 
    168168donnees$annee1<-donnees$annee # on crée une nouvelle variable annee1. 
    169169copie_de_donnees<-donnees # on copie le jeu de données. 
    170170copie_de_donnees$annee1<-"all" #dans ce nouveau jeu, on remplace les valeurs des annees par "all" 
    171 p<-p%+%rbind(donnees,copie_de_donnees) # on raboute le nouveau et l'anciens jeu (fonction rbind = row bind, coller les lignes) 
     171g<-g%+%rbind(donnees,copie_de_donnees) # on raboute le nouveau et l'anciens jeu (fonction rbind = row bind, coller les lignes) 
    172172# la formule %+% permet de remplacer le jeu de données dans un objet de type ggplot. 
    173 p+stat_density(aes(x=val_quant,fill=annee),position='stack')+facet_grid(annee1 ~ .,scales="free") + 
    174                 opts(title="Structure en taille des Aloses essai 8",labels = c(x = "Tailles (mm)", y = "Densite",annee="Annees"))+ 
     173g+stat_density(aes(x=val_quant,fill=annee),position='stack') +facet_grid(annee1 ~ .,scales="free") + 
     174                ggtitle("Structure en taille des Aloses Essai 7")+xlab("Taille")+ylab("Densite")+ 
    175175                scale_fill_brewer(palette = "Spectral") 
    176176}}}