Я новичок в ggplot2, и это было замечательно, но у меня возникли трудности с одной вещью.

Я составил ряд временных рядов, которые охватывают год. Ось X получена из переменной классаDate, Я огранил график так, чтобы у меня было 7 временных рядов в столбце с независимыми осями Y. Весь смысл этой графики состоит в том, чтобы сравнить корреляцию каждого аспекта с верхним аспектом.

Последнее, что я хотел бы сделать, это добавить текст (предполагаемую корреляцию Пирсона между каждым аспектом и первым) к графику в верхнем правом углу каждого аспекта.

Это оказывается чрезвычайно трудным, потому чтоgeom_text()требует координаты x и y для каждого бита текста. Как указать координаты, если ось X представляет собой даты, а ось Y отличается для каждого фасета? Вот некоторые примеры данных и код, который у меня есть на данный момент, чтобы вы могли воспроизвести то, что у меня есть:

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