r - ggplot 多线图上缺少图例

Question

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

如有任何帮助，我们将不胜感激。

数据看起来像(示例)并且数据被命名为“s”:

Example data

代码:

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)")

剧情:

Answer 1

这里有一些与您的相似的可重现数据:

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))

如果您将温度收集到一列中并按类型标记它们，则图例会自行处理。

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()