mission accomplie http://guillaume.doucet.free.fr/doc/transect_1_noue.png voici le code pour la légende : legende_transect_1 <- unique(transect_1_noue[, c('habitat', 'color')]) barplot(t(T_transect),col=transect_1_noue$color ,beside=F,xlab="longeur (m)", names = "Transect 1", las...