I have added a reproducible example for my previous question.
I'm trying to get a plot similar to this:
library(ggplot2)
Date <- as.numeric(rep(seq(2000:2005), each = 5))
value <- runif(30,0,100)
group <- rep(LETTERS[1:5],times = 6)
data <- data.frame(Date,value,group)
ggplot(data, aes(x = Date, y = value, fill = group)) +
geom_area()