带有 geom_line 和 geom_ribbon 和 geom_point 的图例

Pavlo 发表于 Dev

巴甫洛

我已经搜索了两天的答案，但仍然找不到如何做到这一点。我在这里和这里找到的最接近的案例。但前者没有情节，后者没有答案。事不宜迟，如何为我的传奇加分？这是我的数据：

Year <- c(2003:2020)
TheData <- c(72.6, 72.7, 72.6, 72.5, 72.4, 72.1, 71.8, 71.7, 71.8, 72.3, 72.7,
              72.9, 73.1, 73.3, 73.8, 74.7, 75.7, 77.1)
Lower <- c(72.33316, 72.05961, 71.8218, 71.62303, 71.46657, 71.35567, 71.29362,
           71.28368, 71.32915, 71.43331, 71.59947, 71.83096, 72.13113, 72.50333,
           72.95092, 73.47728, 74.08581, 74.77989)
Upper <- c(73.46626, 73.24078, 73.05676, 72.91817, 72.82899, 72.79323, 72.81489,
           72.89794, 73.04639, 73.26418, 73.55528, 73.92363, 74.37315, 74.90775,
           75.53132, 76.24776, 77.06094, 77.97473)
Model <- c(72.89971, 72.65020, 72.43928, 72.27060, 72.14778, 72.07445, 72.05425,
           72.09081, 72.18777, 72.34874, 72.57738, 72.87730, 73.25214, 73.70554,
           74.24112, 74.86252, 75.57337, 76.37731)
MyDF <- data.frame(Year, TheData, Lower, Upper, Model)

这是我的代码：

library("ggplot2")
ggplot(MyDF, aes(x = Year, y = TheData)) +
    geom_point(aes(y = TheData), size = 2.5) +
    geom_line(aes(x = Year, y = Model, color = "Model", fill = "Model")) +
    geom_ribbon(aes(ymin = Lower, ymax = Upper, x = Year,
                    fill = "Confidence Interval"), alpha = 0.15) +
    scale_colour_manual(
        name = "", values = c("Confidence Interval" = "transparent",
                             "Model" = "black")) +
    scale_fill_manual(
        name = "",  values = c("Confidence Interval" = "grey12",
                               "Model" = "transparent")) +
    theme(legend.position = "bottom")

这是我的阴谋。

斯蒂芬

如果你想得到一个图例，你必须在美学上进行映射，例如，你可以在shapeaes 上进行映射以获得你的点的图例：

library("ggplot2")

ggplot(MyDF, aes(x = Year, y = TheData)) +
  geom_point(aes(y = TheData, shape = "TheData"), size = 2.5) +
  geom_line(aes(x = Year, y = Model, color = "Model")) +
  geom_ribbon(aes(ymin = Lower, ymax = Upper, x = Year,
                  fill = "Confidence Interval"), alpha = 0.15) +
  scale_colour_manual(
    name = "", values = c("Confidence Interval" = "transparent",
                          "Model" = "black")) +
  scale_fill_manual(
    name = "",  values = c("Confidence Interval" = "grey12",
                           "Model" = "transparent")) +
  theme(legend.position = "bottom") +
  labs(shape = "")