
首先阴影图的绘制,
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))
网友评论