Soy nuevo en ggplot2 y ha sido maravilloso, pero estoy teniendo dificultades con una cosa.

He trazado una serie de series de tiempo que abarcan un año. El eje X se deriva de una variable de claseDate. He facetado la trama de manera que tengo 7 series de tiempo en una columna con ejes y independientes. El objetivo de este gráfico es comparar la correlación de cada faceta con la faceta superior.

Lo último que me gustaría hacer es agregar texto (la correlación de Pearson estimada entre cada faceta y la primera) a la gráfica en la esquina superior derecha de cada faceta.

Esto está demostrando ser extremadamente difícil porquegeom_text()requiere coordenadas xey para cada bit de texto. ¿Cómo especifico las coordenadas cuando el eje X es fechas y el eje Y es diferente para cada faceta? Aquí hay algunos datos de muestra y el código que tengo hasta ahora para que pueda reproducir lo que tengo hasta ahora:

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")