r - ファセットgeom_lineプロットの平均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)