求助一个画图方法

Rsuper

ggplot2包里面有一个geom_smooth函数画图，我看着这个图在想，有没有一种方法作出这个类似的图，比如我有一组降水数据，行名为“月份”，列名为“年份”，然后我以年份作为x轴，降水量作为y轴，图上实线是每一年的平均值，然后实线周围的灰色区，上界是这一年的降水量最大值，下界是最小值，求大神指导这个应该怎么实线！谢谢啦

doby

df <- data.frame(
  x = seq(1,5),
  y0 = c(1,1.5,2,2,3),
  y25 = c(2,2.5,3,3,4),
  y50 = c(3,3.5,4,4,5),
  y75 = c(4,4.5,5,5,6),
  y100 = c(1,1.5,2,2,3)+4
)

ggplot(df,aes(x))+geom_ribbon(aes(ymin=y0,ymax=y100),fill="gray70")+geom_line(aes(x,y50))


如果平均值 最大最小值都准备好了 类似这样可以画出来