geom_smoothでgeom_lineの平均からの偏差を追加するにはどうすればよいですか？

Question

geom_lineの平均からの距離の絶対値で滑らかなバンドの種類を追加できますか？

は、私はこのような行列持っている：ABSオン

    mean  Date   abs(mean-observed_value) 
1     0.2955319 2015-08-04  1.167321e-02 
2     0.2802859 2015-08-12  7.537708e-03 
3     0.2671653 2015-08-20  2.074987e-03 
4     0.2552016 2015-08-28  4.883826e-03 
5     0.2554279 2015-09-05  4.419968e-03 

を（平均-observed_value）の列が54個の観測各1、および日付の多くの時系列があり、グループのように、繰り返されている意味54行ごとに。私はこのような適切なvalueを使用して、すべての時系列（、プロットした。私はスムーズなバンドとしてそれらをプロットしたいの偏差と

p<-ggplot() + 
    geom_line(data = y_m, aes(x = Date, y = value, group = variable), color="steelblue", size =0.1) 
p + geom_line(data =y_mean, aes(x = Date, y = as.numeric(df.ts_mean)), color=1, size =2) + ylab("EVI") 

しかし今、このような何か：

を

私はすべての可能な解決策をたくさんいただければ幸いです！ありがとうございました！

Answer 1

どこすることができますあなたはgeom_ribbonggplot2()からパッケージを使用することができますdput()出力として、将来のポストのサンプルデータのための

library(ggplot2) 
huron <- data.frame(year = 1875:1972, level = as.vector(LakeHuron)) 
h <- ggplot(huron, aes(year)) 
h + geom_ribbon(aes(ymin = level - 1, ymax = level + 1), fill = "grey70") + 
    geom_line(aes(y = level)) 

してください、使用する方がはるかに簡単です：yminとymax値を設定する（あなたの場合には、それはABS列になります）、ここではサンプルコードですそれでは、各値をコピーするのではなく！