R - ggplot2 geom_area 只有一个类别可见？

R 新手，stackoverflow 新手，所以请原谅我......

我正在尝试使用 ggplot2 在 R 中绘制时间序列图。我想显示两个折线图，它们的填充值低于给定日期的值。我一直在尝试使用 geom_area(position="identity") 函数来做到这一点。

但是，我的图表上只显示一种颜色（尽管两种颜色都显示在图例中）。我首先使用 Melt() 熔化数据，现在使用三列（X=时间、变量=地下水井、值=地下水高程）。下面是我的代码的简化版本，以及我得到的屏幕截图。

Bank01MWtest<-data.frame(X=(c(1,2,2,1)),variable=(c("MW-01A","MW-01A","MW-01B","MW-01B")),value=(c(576,571,584,580)))

ggplot(data=Bank01MWtest, aes(x=X, y=value,group=variable))+geom_area(position="identity", aes(fill=variable))+geom_line(aes(color=variable))+coord_cartesian(ylim=c(570,590))

我想显示两种颜色。一种颜色低于 MW.01A 线，一种颜色低于 MW.01B 线。

有什么帮助吗？

使用 geom_area 尝试此操作，并使用一些综合生成的 Bank01MWtest 数据集：

head(Bank01MWtest)
    Time variable    value
1 2016-07-01   MW-01A 582.5482
2 2016-07-02   MW-01A 580.5652
3 2016-07-03   MW-01A 582.3305
4 2016-07-04   MW-01A 583.3122
5 2016-07-05   MW-01A 576.3432
6 2016-07-06   MW-01A 584.4086

tail(Bank01MWtest)
        Time variable    value
195 2016-10-03   MW-01B 573.8355
196 2016-10-04   MW-01B 575.3218
197 2016-10-05   MW-01B 570.8007
198 2016-10-06   MW-01B 572.3415
199 2016-10-07   MW-01B 575.3291
200 2016-10-08   MW-01B 578.0055

ggplot(data=Bank01MWtest, aes(x=Time, y=value,group=variable))+
  geom_area(position='identity', aes(fill=variable), alpha=0.2)+
  scale_x_date(date_breaks= "1 month", date_minor_breaks = "15 days", date_labels = "%b", 
               limits = c(min(Bank01MWtest$Time),max(Bank01MWtest$Time))) +
  geom_line(aes(color=variable))+coord_cartesian(ylim=c(570,590))