r - 在多面几何线图中标记平均 y 值 ggplot2

Question

我有以下情节，我正在尝试

1）将标签添加到蓝色虚线以显示其值，最好在每个方面的右侧

2）按均值对分面重新排序，使分面按均值的降序出现

require(ggplot2)
require(reshape)
set.seed(13)                                                                 
df <- data.frame(a=runif(10), b=rnorm(10), c=rbinom(10, 10, 0.1),            
             d=runif(10, -1, 1), date=as.Date("2000-01-01") + 0:9)       
df <- melt(df, id=c('date'))                                                 

g <- ggplot(df, aes(date, value)) + geom_line() + facet_wrap(~variable)      
g <- g + geom_line(stat='hline', yintercept='mean', color='blue', linetype=2)