geom_point와 함께 범례에 abline을 추가하는 방법

Question

ggplot2 플롯에서 범례에 애 브블을 추가하려고합니다. 그러나, 나는 그것을 작동시킬 수 없습니다. 아무도 도와 줄 수 있니?

샘플 코드 :

## dummy script to test legends with ablines 
library(ggplot2) 
df1 <- iris 
plot12345 <- ggplot(data = iris) + 
    geom_point(aes(x = Sepal.Length, y = Sepal.Width, colour = "dummy1")) + 
    geom_abline(aes(colour = "dummy2"), intercept = -3, slope = 1) + 
    scale_colour_manual(values = c("dummy1" = "blue", "dummy2" = "red")) 

이는 전설의 첫 번째 행하지만 두 번째하지 포함되어 우리가 intercept를 넣을 수 있습니다 라인에 대한 범례를 표시하기 위해

Answer 1

1. aes에 slope입니다. (나는 어떻게 작동하는지 모르지만 Hadley의 ggplot2 책의 146 페이지에있는 비슷한 예가있다);

2. 범례에 dummy2의 줄만 표시하고 dummy1의 줄만 표시하려면 guide_legend을 조작하여 기본 범례 미학을 무시해야합니다. linetype = c(0, 1)은 공백과 실선을 의미합니다.

이 최종 코드 :

ggplot(data = iris) + 
    geom_point(aes(x = Sepal.Length, y = Sepal.Width, 
        colour = "dummy1")) + 
    geom_abline(aes(colour = "dummy2", slope = 1, intercept = -3)) + 
    scale_color_manual(
     values = c("dummy1" = "blue", "dummy2" = "red"), 
     guide = guide_legend(
      override.aes = list(pch = c(16, NA), linetype = c(0, 1))) 
    )