6 | | p<-ggplot(vue_ope_lot) |
7 | | p+geom_bar(aes(x="",y=effectif,fill=val_libelle,width=1),stat='identity')+ |
8 | | coord_polar(theta="y", start=pi)+ |
9 | | scale_fill_grey(name="stades pigmentaires",start=0.8, end=0.2)+ theme_bw() + |
10 | | facet_wrap(~date,scale="free_y")+ |
11 | | opts(title="Stades pigmentaires 1998",label=c(x="effectif",y=theme_blank())) |
| 7 | p<-ggplot(vue_ope_lot) # récupére le data.frame vue_ope_lot qui a été écrit après avoir |
| 8 | p+geom_bar(aes(x="",y=effectif,fill=val_libelle,width=1),stat='identity')+ # cette écriture de geom_bar demande de bien mettre stat='identity', on peut alors passer à geom_bar un x et un y... |
| 9 | coord_polar(theta="y", start=pi)+ # coordonnées polaires = cercle |
| 10 | scale_fill_grey(name="stades pigmentaires",start=0.8, end=0.2)+ # scale_fill_grey permet d'avoir des graduations de gris |
| 11 | theme_bw() + # on efface le fond gris |
| 12 | facet_wrap(~date,scale="free_y")+ # facet_wrap permet d'afficher un ruban unidimentionnel en deux dimensions (un graphique par date) |
| 13 | opts(title="Stades pigmentaires 1998",label=c(x="effectif",y=theme_blank())) # options |