ggplot2 geom_area graph;不知道我在这里失踪了什么

Question

这是我的编码：

library(ggplot2)
Graph2 <- read.csv("~/ggplot2 project/Graph2.csv", sep="")
ggplot(Graph2, aes(x=Year, y=Total, fill=Season)) + geom_area()

这是我的结果：

但我试图让它看起来更像：

知道我哪里错了吗？