Afficher le texte en dessous du graphe généré par ggplot2

j'essaie d'afficher quelques informations sur les données sous le graphe créé dans ggplot2 . Je voudrais tracer la variable N en utilisant la coordonnée de l'axe X de la parcelle, mais la coordonnée Y doit être de 10% à partir du bas de l'écran . En fait, les coordonnées Y désirées sont déjà dans la base de données en tant que variable y_pos.

je peux penser de 3 approches à l'aide de ggplot2 :

1) Créer un graphique vide sous le graphique réel, Utilisez la même échelle et utilisez ensuite geom_text pour tracer les données sur le graphique vide. Cette approche genre de travaux, mais il est extrêmement compliqué.

2) Utilisez geom_text pour tracer les données, mais utilisez en quelque sorte la coordonnée y comme pourcentage de l'écran (10%). Cela forcerait les nombres à être affichés sous le graphe. Je ne peux pas comprendre la syntaxe correcte.

3) utiliser la grille.texte pour afficher le texte. Je peux il est facile de le régler à 10% à partir du bas de l'écran, mais je ne vois pas comment régler le x coordindate pour qu'il corresponde au graphe. J'ai essayé d'utiliser grconvert pour capturer la première position X, mais ne pouvait pas obtenir que cela fonctionne ainsi.

ci-dessous est le tracé de base avec les données fictives:

graphics.off()      # close graphics windows   

library(car)
library(ggplot2)  #load ggplot
library(gridExtra) #load Grid
library(RGraphics) # support of the "R graphics" book, on CRAN

#create dummy data
test= data.frame(
  Group = c("A", "B", "A","B", "A", "B"), 
  x = c(1 ,1,2,2,3,3 ),
  y = c(33,25,27,36,43,25),
  n=c(71,55,65,58,65,58),
  y_pos=c(9,6,9,6,9,6)
  )

#create ggplot
p1 <- qplot(x, y, data=test, colour=Group) +
  ylab("Mean change from baseline") + 
  geom_line()+
  scale_x_continuous("Weeks", breaks=seq(-1,3, by = 1) ) +
  opts( 
        legend.position=c(.1,0.9))

#display plot
p1

le gplot modifié ci-dessous affiche le nombre de sujets, mais ils sont affichés dans le graphique. Ils obligent à étendre l'échelle de Y. Je voudrais afficher ces numéros en contrebas de la parcelle.

    p1 <- qplot(x, y, data=test, colour=Group) +
  ylab("Mean change from baseline") + 
  geom_line()+
  scale_x_continuous("Weeks", breaks=seq(-1,3, by = 1) ) +
  opts( plot.margin = unit(c(0,2,2,1), "lines"),
        legend.position=c(.1,0.9))+
  geom_text(data = test,aes(x=x,y=y_pos,label=n))

p1

une autre façon d'afficher les chiffres consiste à créer un tracé fictif sous le tracé réel. Voici le code:

graphics.off()      # close graphics windows   

library(car)
library(ggplot2)  #load ggplot
library(gridExtra) #load Grid
library(RGraphics) # support of the "R graphics" book, on CRAN

#create dummy data
test= data.frame(
  group = c("A", "B", "A","B", "A", "B"), 
  x = c(1 ,1,2,2,3,3 ),
  y = c(33,25,27,36,43,25),
  n=c(71,55,65,58,65,58),
  y_pos=c(15,6,15,6,15,6)
  )


p1 <- qplot(x, y, data=test, colour=group) +
  ylab("Mean change from baseline") + 
  opts(plot.margin = unit(c(1,2,-1,1), "lines")) +
  geom_line()+
  scale_x_continuous("Weeks", breaks=seq(-1,3, by = 1) ) +
  opts(legend.position="bottom",
       legend.title=theme_blank(),
       title.text="Line plot using GGPLOT") 
p1

p2 <- qplot(x, y, data=test, geom="blank")+
  ylab(" ")+
  opts(     plot.margin = unit(c(0,2,-2,1), "lines"),
            axis.line = theme_blank(), 
            axis.ticks = theme_segment(colour = "white"),           
            axis.text.x=theme_text(angle=-90,colour="white"),
            axis.text.y=theme_text(angle=-90,colour="white"),
            panel.background = theme_rect(fill = "transparent",colour = NA), 
            panel.grid.minor = theme_blank(),      
            panel.grid.major = theme_blank()
            )+
  geom_text(data = test,aes(x=x,y=y_pos,label=n)) 
p2

grid.arrange(p1, p2, heights = c(8.5, 1.5),             nrow=2 )

cependant, cela est très compliqué et serait difficile à modifier pour des données différentes. Idéalement, j'aimerais pouvoir passer les coordonnées Y en pourcentage de l'écran.