pheno_simu_obs.png
首先陰影圖的繪制旨巷，
geom_ribbon(data=dyArea,aes(years,ymin=dmin,ymax=dmax,fill=factor(params)),alpha=.3)
其次圖層疊加
ggplot()+
geom_ribbon(data=dyArea,aes(years,ymin=dmin,ymax=dmax,fill=factor(params)),alpha=.3)+
geom_point(data=speciesD,aes(x=year,y=Value,col=Species))
