R 图例ggplot图不'；t显示平均值、错误条和彩色矩形

我已经在R中做了这个平均值的散点图，我知道我应该把所有感兴趣的变量都包括在图形图中。然而，在我创建的图中（见下文），图例没有显示

我感兴趣的变量是均值、误差条和彩色矩形。有人知道如何以智能或手动方式绘制它们吗

df <- data.frame(weeks = c(-1, 0, 1, 2, 3, 4),
             mean = c(64, 65, 66, 66, 66, 67),
             lowerCI = c(63.4, 64.9, 64.5, 63.8, 62.1, 66.8),
             upperCI = c(65.6, 65.1, 66.5, 67.2, 68.9, 67.2))

sp_ts <- ggplot(data = df,
            aes(x = weeks,
                y = mean))

sp_ts +
  geom_point(shape = 15,
         size = 4) +
  geom_errorbar(aes(ymin = lowerCI,
                ymax = upperCI),
            width = 0.05,
            size = 0.5) +
  labs(title = "Scatterplot of means",
   x = "Weeks",
   y = "Means") +
  scale_x_continuous(limits = c(-1, 4),
                 breaks = c(-1, 0, 1, 2, 3, 4)) +
  scale_y_continuous(limits = c(62, 69),
                 breaks = c(61, 62, 63, 64, 65, 66, 67, 68, 69)) +
  annotate("rect", xmin = -Inf, xmax = 2, ymin = -Inf, ymax = Inf, fill = "light blue", alpha = 0.2) +
  annotate("rect", xmin = 2, xmax = Inf, ymin = -Inf, ymax = Inf, fill = "blue", alpha = 0.2) +
  theme_bw() +
  theme(panel.grid.minor = element_blank())

---

df这里有一种显示图例的方法（取自此）

库（ggplot2）
sp_ts1您没有图例，因为您没有在上面指定任何内容以放入图例。这个图例应该区分什么？我想让图例告诉读者，正方形是平均值，误差条是95%的置信区间，彩色矩形是不同的组。我想我也可以在图表下方的评论中这样做，但我认为最好把它作为一个传奇来写，这不是一个传奇的典型目的。通常，这些信息会出现在图表上方或下方的标题中。图例将图形的特征（线型、颜色、填充、点类型）与数据子集（公司A与公司B；治疗A与治疗B）等具体映射。我知道科学文献中使用这些图形的方式，但出于交流目的，我更喜欢在图形中尽可能多地提供信息。我的读者通常不喜欢大的短信谢谢董建华，这会为手段和错误栏做。你也知道如何合并矩形吗？对不起，还有一个问题。由于矩形位于顶部，因此平均值的正方形现在也被着色。您知道如何配置图形，使均方仍然为黑色（或在您的情况下为绿色）且位于矩形顶部吗？所以它们是纯色的？好吧，没关系，我找到了解决方案：只需在顶部绘制代码，然后在底部绘制代码。所以：几何校正先于几何点