在负值下使用geom_area填充区域

Question

好像我有一个非常简单的问题：

我用ggplot2创建了这样的情节：

Negative Values

使用此代码：

library(ggplot2)
df <- read.table(header=T, text='  x y
              1   -1
              2   -1.5
              3  -1.6
              4  -1.7
              5  -1')

ggplot(df, aes(x,y)) +
geom_area(size=1,colour="red")

如您所见，图表值为负值。

我想填充图表行下的区域。

It should look like this

重复路径对我没有帮助。

感谢您的帮助！