barplot legend.text not passed to plot ?

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)