在刻面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)