Ajouter des accolades dans un graphique

Bonjour,

Je souhaiterais ajouter des grandes accolades, pour bien distinguer les groupes dans un graphique fait avec barplot(...).
Ci-joint un exemple de programme :

Code:

---

1 2	A <- matrix(c(-1,2,1,4,-3,5,-4,-3,2,2,-3,-1,5,3),nrow=5) ; colnames(A) <- c('A','B','C') ; rownames(A) <- 1:5 ; A barplot(A,main='Groupes',col=rainbow(5),names=c('A','B','C'),horiz=T,beside=T)

---

L'idée est de mettre des accolades pour bien signaler à quel groupe appartienne les barres horizontales.
Dans le cas présent, la visualisation ne pose pas de gros problème ; mais lorsque le nombre de barres est élevé, parfois la distinction entre un groupe et l'autre n'est visuellement pas très claire.
Est-ce que quelqu'un saurait faire ?

Bonsoir,

Je ne sais pas si cela fait l'affaire mais moi je mettrai plutôt des lignes horizontales entre les groupes, comme ça:

Code:

---

1 2 3 4

A <- matrix(c(-1,2,1,4,-3,5,-4,-3,2,2,-3,-1,5,3),nrow=5) ; colnames(A) <- c('A','B','C') ; rownames(A) <- 1:5 ; A barplot(A,main='Groupes',col=rainbow(5),names=c('A','B','C'),horiz=T,beside=T) abline(h=6.5, lty=2) abline(h=12.5, lty=2)

---