我用R语言进行了对已知数据的回归分析/平滑处理，红线相当于拟合出来的回归曲线，绿色背景相当于95%的置信区间，
我现在想对这张图的红线和绿色的置信区间进行分时间段设置不同的颜色（2020年之前是红色实线、灰色置信区间，2020-2030年是绿色虚线、蓝色置信区间），但是不知道怎么设置代码，求大神指点！谢谢大家！下面是我的代码data <- data.frame(
  year = c(2003:2030),
  number = c(40.84,49.2354,51.5988,53.9622,56.3256,64.79,61.0524,63.4158,65.7792,68.1426,76.4,72.8694,75.2328,77.5962,79.9596,76.36,71.99236,71.10268,70.39136,69.80928,69.31588,68.89523,68.53132,68.21586,67.93846,67.69439,67.47674,67.28291),
  stringsAsFactors = FALSE
)
p3 <- ggplot(data, aes(x=year, y=number)) +
  geom_point() +
  geom_smooth(method = lm, formula = y ~ splines::bs(x, 3), color="red", fill="#69b3a2", se=TRUE) +
  theme_ipsum()
p3