Changes between Version 43 and Version 44 of Recette BilanLot

Timestamp:

Dec 24, 2012 9:56:25 PM (12 years ago)

Author:

cedric

Comment:

--

Recette BilanLot

@@ -53 +53 @@
 
 [[Image(source:stacomi/trunk/docs/trac/Bilan_lot_recette2.jpg,400px)]]
-[[Image(source:stacomi/trunk/docs/trac/Bilan_lot_recette3.jpg,400px)]]
-[[Image(source:stacomi/trunk/docs/trac/Bilan_lot_recette4.jpg,400px)]]
 
  * Ajoutons un titre et des légendes (attention requiert ggplot version 0.9.3) :
@@ -66 +64 @@
                 annotate("text",x = 300, y = 0.07, label = "essai == 1",  parse = T, vjust = 0, hjust = 0)
  }}}
+[[Image(source:stacomi/trunk/docs/trac/Bilan_lot_recette3.jpg,400px)]]
 
-[[Image(source:stacomi/trunk/docs/trac/Bilan_lot_recette5.jpg,400px)]] [[Image(source:stacomi/trunk/docs/trac/Bilan_lot_recette6.jpg,400px)]][[Image(source:stacomi/trunk/docs/trac/Bilan_lot_recette7.jpg,400px)]]
  * essai =2
 {{{
@@ -83 +81 @@
                 scale_fill_brewer(name="Annees",palette="Set3")
 }}}
+[[Image(source:stacomi/trunk/docs/trac/Bilan_lot_recette4.jpg,400px)]]
  * essai = 3
 {{{
 bilan_lot<-get("bilan_lot",envir_stacomi)
 g<-ggplot(bilan_lot@data)
-require(vcd)
+require(vcd) # appel au package vcd à installer à partir de R, package, installer les packages.
 col<-diverge_hcl(length(unique(bilan_lot@data$annee)),h = c(246, 40), c = 96, l = c(65, 90))
+# ici appel à une fonction externe, les scale...brewer demandent moins de 9 à 12 couleurs en fonction de la palette
 g+stat_density(aes(x=val_quant,fill=annee),position='stack')+
                 ggtitle("Structure en taille des Aloses")+
@@ -96 +96 @@
                 scale_fill_manual(name="Annees",values=col)     
 }}}
+[[Image(source:stacomi/trunk/docs/trac/Bilan_lot_recette5.jpg,400px)]]
  * essai = 4
 {{{
-couleurs=rainbow(12)
-p+stat_density(aes(x=val_quant,fill=annee),position='stack')+facet_grid(. ~ .)+
-                opts(title="Structure en taille des Aloses",labels = c(x = "Tailles (mm)", y = "Densite",annee="Annees"))+
+bilan_lot<-get("bilan_lot",envir_stacomi)
+g<-ggplot(bilan_lot@data)
+col<-rainbow(length(unique(bilan_lot@data$annee)))
+g+stat_density(aes(x=val_quant,fill=annee),position='stack')+
+                ggtitle("Structure en taille des Aloses")+
+                xlab("Tailles (mm)")+
+                ylab("Densite")+
                 annotate("text",x = 300, y = 0.07, label = "essai == 4",   parse = T, vjust = 0, hjust = 0,col="darkblue")+
-                scale_fill_manual(values = couleurs)
+                scale_fill_manual(name="Annees",values = col)
 }}}
+[[Image(source:stacomi/trunk/docs/trac/Bilan_lot_recette6.jpg,400px)]]
 
+
+
+ [[Image(source:stacomi/trunk/docs/trac/Bilan_lot_recette7.jpg,400px)]]
 [[BR]]
 ''' Utilisation du facettage '''