Możliwy duplikat:
Adnotowanie tekstu na indywidualnym aspekcie w ggplot2

Pracuję nad zestawem danych z 3 gatunkami. Są to jabłka, pomarańcze i banany.

Chcę dodawać adnotacje do aspektów tylko na dolnym panelu. Jednak domyślnie otrzymuję adnotacje na wszystkich działkach. Udało mi się uzyskać adnotację tekstową tylko na żądanym wykresie. Jednak jestem zdezorientowany tym, co muszę zrobić dla strzałek / segmentów.

Oto mój kod:

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

Teraz chcę dodać strzałki i segment na podstawie ogólnego wykresu.

Moje dane można znaleźć nahttps://www.dropbox.com/s/dfcmqrslskwdh80/temp%20data%20share.csv

Moje wyjście to

To jest to, co otrzymałem tylko z adnotacją tekstową. Ale w przypadku adnotacji segmentu zawsze występował błąd. Możesz zauważyć etykiety tekstowe 2008 i 2009 dodane na dolnym panelu.

Wyjście pokazuje adnotację, którą chcę, ale jest na wszystkich aspektach. Chcę tylko na dole.

Dziękuję bardzo.

Pozdrawiam, Jdbaba