ggplot 多线图上缺少图例

我正在从包含每年最小值、平均值和最大值的数据框中绘制年度温度数据。我一直无法在我的情节上找到传说。理想情况下，图例应具有图例标题并将线条颜色标记为“最小值”、“平均值”和“最大值”。

任何帮助，将不胜感激。

数据看起来像（示例），数据名为“s”：

示例数据

代码：

ggplot(s, aes(Year)) + 
geom_line(aes(y=min), color="blue") +
geom_line(aes(y=mean), color="green") + 
geom_line(aes(y=max), color="red") + 
ggtitle("Fort Collins Mean Annual Temperature") + 
ylab("Temperature (degF)")

剧情：

以下是一些与您类似的可重现数据：

set.seed(123)
df1 <- data.frame(Year = 1893:1903, 
                  min  = sample(-5:10, 11, replace = TRUE), 
                  mean = sample(50:70, 11, replace = TRUE), 
                  max  = sample(90:100, 11, replace = TRUE), 
                  n    = sample(150:350, 11, replace = TRUE))

If you gather将温度放入一列并按类型标记它们，图例会自行处理。

library(tidyverse)
df1 %>% 
  gather(measurement, value, -n, -Year) %>% 
  ggplot(aes(Year, value)) + 
    geom_line(aes(group = measurement, color = measurement)) +
    scale_x_continuous(breaks = 1893:1903) +
    labs(y = "Temperature (F)", title = "Fort Collins Annual Temperature") + 
    theme_bw()