在ggplot2中对时间序列图表进行渐变填充批注

library(ggplot2)
library(scales)

# 创建一个示例数据集
set.seed(123)
dates <- seq(as.Date("2020-01-01"), as.Date("2020-12-31"), by="day")
values <- rnorm(length(dates), mean=100, sd=10)
data <- data.frame(date=dates, value=values)

# 创建渐变填充的时间序列图表
p <- ggplot(data, aes(x=date, y=value)) +
  geom_ribbon(aes(ymin=value, ymax=110, fill=date), alpha=0.5) +
  scale_fill_gradient(low="blue", high="red") +
  geom_line() +
  labs(title="时间序列图表示例", x="日期", y="值") +
  theme_minimal()

# 添加批注
p + annotate("text", x=as.Date("2020-06-01"), y=105, label="重要事件", color="black", size=5)

# 显示图表
print(p)