Truc bizarre avec la fonction abline

Bonjour,

Voici un programme tout simple, qui tente d'afficher des lignes sur un diagramme horizontal en bâtons

Code:

---

1 2 3 4 5

A <- c(53,54,55,56,57,58,59,60,61,62,63,64,65) X <- rep(A,c(11,23,20,17,18,20,13,14,14,14,8,6,8)) Y <- table(X) barplot(Y, horiz=TRUE) abline(h=A,col='red',lwd=2)

---

Quelqu'un sait-il pourquoi les lignes rouges ne s'affichent pas sur les barres horizontales correspondantes ?

Lorsqu'on remplace l'instruction par abline(h=1,col='red',lwd=2), on obtient bien une ligne rouge en position 1 ; laquelle correspond à la position 53 sur mon graphique. Mais ce n'est pas ce que je voulais.

Quelqu'un a-t-il une idée (sans avoir à bidouiller quelque chose qui permette d'associer mes valeurs à une position dans le graphique) ?

Les valeurs de A sont des étiquettes et non des ordonnées. Les ordonnées des différentes barres sont renvoyées par barplot(Y, horiz=TRUE). Le code correct est donc :

Code:

---

1 2 3 4 5

A <- c(53,54,55,56,57,58,59,60,61,62,63,64,65) X <- rep(A,c(11,23,20,17,18,20,13,14,14,14,8,6,8)) Y <- table( X) abline( h=barplot( Y, horiz=TRUE), col='red', lwd=2)

---

ou

Code:

---

1 2 3 4 5 6

A <- c(53,54,55,56,57,58,59,60,61,62,63,64,65) X <- rep(A,c(11,23,20,17,18,20,13,14,14,14,8,6,8)) Y <- table( X) y <- barplot( Y, horiz=TRUE) abline( h=y, col='red', lwd=2)

---

Super, c'est ce dont j'avais besoin
Merci