如何用geom_smooth在geom_line上添加平均值的偏差？

Question

有沒有可能在geom_line上添加一種帶平均距離絕對值的平滑帶？

我有這樣一個矩陣：

    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 

在ABS（均值observed_value）列有很多時間序列的54個看法各一臺，以及日期和平均的喜歡羣體，被反覆每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_ribbon從ggplot2()包在那裏你可以建立ymin和ymax值（在你的情況下，這將是ABS列），這裏有一個例子代碼：

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

請對未來崗位的樣本數據爲dput()輸出，它更容易使用它，而不是複製每個值！