r - geom_area 用不同的颜色填充

Question

使用 geom_area 处理绘图时遇到了一些问题。我有一个包含日期和计数的数据框，如下所示:

dates <- c("02/01/00", "02/04/00", "02/07/00", "02/10/00", "02/01/01", "02/04/01", "02/07/01", "02/10/01")
dat <- data.frame(date=as.Date(dates, "%d/%m/%y"), count=(sample(1:8)))

然后我添加了一个“月”变量:

dat["month"] <- month(dat$date)

然后我的情节:

plot <- ggplot(data=dat, aes(x=date, y=count, group=month, fill=month)) + geom_area()

结果不会那么糟糕，如果它可以理解，它不应该填充从本月第一次出现到下一年第二次出现的区域，而是从这个出现到下个月的一次同年。 (为了更好地理解:线条应该与图表 plot2 中的线条相同(见下文)，但每个新月份用不同的颜色填充)。

plot2 <- ggplot(data=dat, aes(x=date, y=count)) + geom_line()

Answer 1

在与@user20659 的评论相同的行中，但操作数据:

dat["month"] <- as.factor(month(dat$date))
dat["df"] <- as.factor(dat$date)

dat2 <-data.frame(date=dat$date[-1],count=dat$count[-1], month=dat$month[-8],df=dat$df[-8])

dat3 <- rbind(dat,dat2)

ggplot(data=dat3, aes(x=date, ymax=count, ymin=0, group=df, fill=month)) + geom_ribbon()