Duplicata Possível:
Anotando texto na faceta individual em ggplot2

Eu estou trabalhando em um conjunto de dados com 3 espécies. Eles são maçã, laranja e banana.

Quero anotar as facetas apenas no painel inferior. No entanto, por padrão, estou recebendo anotações em todos os gráficos. Consegui obter anotação de texto apenas no gráfico desejado. No entanto, estou confuso com o que preciso fazer para as setas / segmentos.

Aqui está o meu código:

library(ggplot2)
library(grid)

tempobs <- read.csv("temp data share.csv",header=T, sep=",")
p1 <- ggplot(tempobs,aes(x=time,y=data))+geom_point(data=tempobs,aes(x=time,y=data,colour=group1))+facet_wrap(~id,ncol=1)+theme_bw()
p1 <- p1 + xlab("Julian Day (2008-2009)")+ylab(expression(Temperature~(degree*C)))+ element_blank()+ theme(
    legend.position="right",
    legend.direction="vertical",
    legend.title = element_blank()) +coord_cartesian(xlim=c(250,550))+coord_cartesian(ylim=c(0,40))+scale_x_continuous(breaks=c(250,300,350,400,450,500,550),labels=c("250","300","350","34","84","134","184"))
p1

### This is how it should look like (though shows annotations for all the plots)
p + annotate("text",x=340,y=3,label="2008",size=3)+annotate("segment",x=366,xend=366,y=0,yend=2,size=0.5)+annotate("text",x=390,y=3,label="2009",size=3)+annotate("segment",x=366,xend=310,y=1,yend=1,size=0.5,arrow=arrow(length=unit(0.2,"cm")))+annotate("segment",x=366,xend=420,y=1,yend=1,size=0.5,arrow=arrow(length=unit(0.2,"cm")))


### This is what I did to show text annotation on the bottom panel
ann_text <- data.frame(x=c(340,390),y=c(3,3),id=c("orange"),label=c("2008","2009"))
p1 <- p1 + geom_text(data=ann_text,aes(x=x,y=y,label=label,size=3),show_guide=F)
p1

Agora, quero adicionar as setas e o segmento com base no gráfico geral.

Meus dados podem ser encontrados emhttps://www.dropbox.com/s/dfcmqrslskwdh80/temp%20data%20share.csv

Minha saída é

Isto é o que eu tenho com apenas anotação de texto. Mas, para anotações de segmento, sempre recebo erro. Você pode notar os rótulos de texto 2008 e 2009 adicionados no painel inferior.

A saída mostra a anotação que quero, mas está em todas as facetas. Eu quero apenas no inferior.

Muito obrigado.

Atenciosamente, Jdbaba