Discussion :

[UZeInDub]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Et avec j'obtiens le message d'erreur suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Mon dataA :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!