Ich bin neu in ggplot2 und es war wunderbar, aber ich habe Schwierigkeiten mit einer Sache.

Ich habe eine Reihe von Zeitreihen aufgezeichnet, die sich über ein Jahr erstrecken. Die X-Achse wird von einer Variablen der Klasse abgeleitetDate. Ich habe die Darstellung so facettiert, dass ich 7 Zeitreihen in einer Spalte mit unabhängigen y-Achsen habe. In dieser Grafik geht es darum, die Korrelation jeder Facette mit der oberen Facette zu vergleichen.

Das Letzte, was ich tun möchte, ist, Text (die geschätzte Pearson-Korrelation zwischen jeder Facette und der ersten) zum Diagramm in der oberen rechten Ecke jeder Facette hinzuzufügen.

Dies erweist sich als äußerst schwierig, weilgeom_text()erfordert x- und y-Koordinaten für jedes Textbit. Wie gebe ich Koordinaten an, wenn die X-Achse ein Datum ist und die Y-Achse für jede Facette unterschiedlich ist? Hier sind einige Beispieldaten und der Code, den ich bisher habe, damit Sie das reproduzieren können, was ich bisher habe:

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