la fonction barplot peut te renvoyer les abcisses du centre de tes barres (qui ne sont pas 1,2,3,4,5,6 comme tu le penses vu ton code) m=barplot(c) > m [1] 0.7 1.9 3.1 4.3 5.5 6.7 > text(0,105,"N",col="red",xpd=NA) > text(m,105,labels=effectif,xpd=NA,col="red") Voilà, S...