Eu sou novo no ggplot2 e tem sido maravilhoso, mas estou tendo dificuldades com uma coisa.

Eu plotei uma série de séries temporais que abrangem um ano. O eixo X é derivado de uma variável de classeDate. Eu tenho facetado o enredo para que eu tenha 7 séries temporais em uma coluna com eixos y independentes. O objetivo deste gráfico é comparar a correlação de cada faceta com a faceta principal.

A última coisa que gostaria de fazer é adicionar texto (a correlação de Pearson estimada entre cada faceta e a primeira) ao gráfico no canto superior direito de cada faceta.

Isto está provando ser extremamente difícil porquegeom_text()requer coordenadas xey para cada bit de texto. Como eu especifico coordenadas quando o eixo X é datas e o eixo Y é diferente para cada faceta? Aqui estão alguns dados de amostra e o código que eu tenho até agora para que você possa reproduzir o que eu tenho até agora:

library(ggplot2)

date <- rep(as.Date(1:365,origin='2011-1-1'),7)
location <- factor(rep(1:7,365))
product <- rep(letters[1:7], each=365)
value <- c(sample(1:10, size=365, replace=T),sample(1:3, size=365, replace=T),
           sample(10:100, size=365, replace=T), sample(1:50, size=365, replace=T),
           sample(1:20, size=365, replace=T),sample(50:100, size=365, replace=T),
           sample(1:100, size=365, replace=T))
dat<-data.frame(date,location,product,value)

qplot(date, value, data=dat, geom="line", color=location, group=location, 
      main='Time Series Comparison', xlab='Month (2011)',ylab='Value') + 
        facet_grid(product ~ ., scale = "free_y")