bilan de la structure en stades pigmentaires

Lancer un bilan lot, une fois que l'interface ggplot s'affiche, la refermer puis tapper

p<-ggplot(vue_ope_lot)
p+geom_bar(aes(x="",y=effectif,fill=val_libelle,width=1),stat='identity')+ 
 coord_polar(theta="y", start=pi)+
		scale_fill_grey(name="stades pigmentaires",start=0.8, end=0.2)+ theme_bw() +
        facet_wrap(~date,scale="free_y")+
		opts(title="Stades pigmentaires 1998",label=c(x="effectif",y=theme_blank()))