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

다음과 같은 재현 가능한 데이터가 있습니다. S : 당신 gather 온도 하나의 열에 및 유형을 라벨, 전설 자체를 돌봐 경우

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