stat_summary를 사용하여 qplot 그래프의 범례 만들기

Question

데이터 프레임이 포함 된 파일이 있습니다. 여기에 내가 빨간색 선이 평균이라고 설명 할 것이다이 그래프에 범례를 추가했다 아래 그림

에게이 결과 파일

tmp <- read.csv("tmp.csv") 
m <- qplot(UW_rank, number_correction, data = tmp, 
     alpha = I(1/3), 
     geom = c("point"), 
     xlab = "Underwriter rank", 
     ylab = "Number of SEC letters", 
     main = "Number of SEC Letters and UW Rank", 
    ) 
m <- m + stat_summary(aes(colour = "mean"), fun.y = mean, 
        geom = "line", 
        color = "red", 
        size = 1.1) 

에 link입니다. 어떻게해야합니까? 나는 scale_fill_manual과 geom_text을 시도했지만 작동 방법을 알아낼 수 없었습니다.

Answer 1

@ 조란의 데이터 사전 정리 방법은 잘 작동하지만 큰 데이터 세트를 가지고있는 경우 stat_summary보다 빠릅니다.하지만 색상 미학을 "평균"으로 매핑하여 직접 처리 할 수도 있습니다. stat_summary에 입력 한 다음 추가 코드를 추가하여 원하는 색상과 레이블을 얻으십시오. 내가 예로 설정 내장 mtcars 데이터를 사용했습니다 :

p1 = ggplot(mtcars, aes(cyl,mpg)) + 
     geom_point() 

p1 + 
    stat_summary(fun.y=mean, geom="line", aes(cyl, mpg, colour="mean")) + 
    scale_colour_manual(values=c("mean"="blue")) + # Set line color to blue 
    labs(colour="") # Get rid of the redundant legend title