ggplot2 : geom_text et facet_grid

Bonjour, je cherche à combiner les commandes geom_text et facet_grid.
J'ai trouvé cette réponse sur un autre forum : ->lien<- mais il permet d'afficher 1 ligne de texte par graphique, alors que moi je cherche à afficher 1 information par boxplot (en l'occurance la taille de chaque échantillon).
J'ai cru comprendre qu'il fallait créer un data frame avec les données du coup j'ai fais ça :

Code:

---

1 2 3 4 5 6

p<-ggplot(data=dataV,aes(x=classe_ans,y=htot)) p<-p+geom_boxplot() p<-p+facet_grid(.~cl_alti) dataA=data.frame(x=levels(dataV$classe_ans),y=0,lab=(tapply(dataV$htot,interaction(dataV$classe_ans,dataV$cl_alti,drop=T),length)),cl_alti=c("[0-300[","[0-300[","[0-300[","[300-800[","[300-800[","[300-800[","[800-","[800-","[800-")) p<-p+geom_text(aes(x,y,label=lab),data=dataA) p

---

Voilà ce que j'obtiens sans le geom_text :
Pièce jointe 223289
Et avec j'obtiens le message d'erreur suivant :

Code:

---

Error in eval(expr, envir, enclos) : object 'classe_ans' not found

---

Mon dataA :

Code:

---

1 2 3 4 5 6 7 8 9 10

x y lab cl_alti 1.[0-300[ 1 0 783 [0-300[ 2.[0-300[ 2 0 637 [0-300[ 3.[0-300[ 3 0 427 [0-300[ 1.[300-800[ 1 0 34 [300-800[ 2.[300-800[ 2 0 50 [300-800[ 3.[300-800[ 3 0 30 [300-800[ 1.[800- 1 0 278 [800- 2.[800- 2 0 253 [800- 3.[800- 3 0 183 [800-

---

Merci d'avance pour votre aide!