用给定的斜率绘制ggplot2中的线条并用图例截取

Question

我有一个包含斜率和截距列的数据框。我想绘制对应于给定范围的每个截距和斜率的线，并使用第3列为它们分配颜色。由于我不知道如何在不首先为ggplot指定绘图的情况下绘制geom_abline，我使用其他列x和y来获取绘图并调整轴刻度以查看abline线并隐藏x y plot。到现在为止还挺好。但是，当我尝试使用颜色进行拍摄时，我可以看到不同颜色的线条，但我看不到图例标签。这是我的示例代码：

slope <- c(rep(.28,5),rep(.26,5),rep(.27,5),rep(.28,5),rep(.24,5))
intercept <- c(rep(-2.5,5),rep(-1.7,5),rep(-1.63,5),rep(-1.5,5),rep(-1.58,5))
wf <- c(1,1,1,1,1,5,5,5,5,5,8,8,8,8,8,18,18,18,18,18,22,22,22,22,22)
x <- c(seq(1:5),seq(1:5),seq(1:5),seq(1:5),seq(1:5))
y <- c(seq(1:25))
df <- data.frame(cbind(slope,intercept,wf,x,y))

ggplot(data=df,
   aes(x,y))+
  geom_point()+
  theme_bw() +
  scale_y_continuous(limits=c(-3,0))+
  geom_abline(data=df,aes(slope=slope,intercept=intercept,color=factor(wf)))

这是我使用上面代码得到的情节

我也尝试过使用     scale_color_manual（标签= C（＆＃34; 1＆＃34;＆＃34; 5＆＃34;＆＃34; 8＆＃34;＆＃34; 18＆＃34;＆＃34; 22＆＃34; ）） 手动添加标签但不起作用。

请帮我添加标签或更好地如何绘制具有给定斜率的线条并截取到ggplot而不必愚弄其他数据。