(ab <- table(unlist(spe))) #en utilisant les parenthèses de cette façon, la sortie s'affichera immédiatement dans la console

barplot(ab, las=1, xlab="Abundance class", ylab="Frequency", col=grey(5:0/5))