如何將abline與geom_point一起添加到圖例

Question

我正在嘗試在ggplot2圖中添加一個abline到圖例。但是，我無法讓它工作。誰能幫忙？

示例代碼：

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

這僅包括在傳說中的第一行而不是第二：

Answer 1

1. 以示傳說爲線，我們可以把interceptaes中的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))) 
    )