stacomi(database_expected=TRUE,datawd=file.path(getwd(),"data"),sch="seinormigr")# obtenir la liste des stades dans la table t_llot_lot pour un taxon donnér_ann<-new("report_annual")r_ann<-choice_c(r_ann,dc=c(101,103,105,106,107),taxa=c("Liza ramada"),stage=5,start_year="2007",end_year="2022",silent=FALSE)r_ann<-connect(r_ann)barplot(r_ann,legend.text=rc@data[rc@data$dc%in%c(101,103,105,106,107),"dc_code"],args.legend=list(x="right",bty="n"),col=RColorBrewer::brewer.pal(9,"Spectral"),beside=TRUE)