线条图图例+ ABLINE ggplot

Question

我有下面的图，并尝试在median添加图例和geom_abline。

紫色线条表示2013年产品，红色线条表示2014年

这是我用来生成这个图的方法：

ggplot(prods[Year==2013,], aes(x = Date, y = Prod, group = SOM)) + 
 geom_line(lwd = 1.3, colour = "purple") +
 ylab("Actual Productivity") + theme(axis.title.x=element_blank()) +
 geom_line(data=prods[Year==2014,], aes(x = Date, y = Prod, group = SOM),lwd = 1.3, colour = "red") +
 geom_abline(data = prods,h=median(Prod))+
 scale_color_manual("Period", values = c("purple","red"), labels = c("2013","2014")) +
 facet_wrap(~ SOM)

我没有得到任何错误，但没有图例，也没有在图像上弹出白线。图看起来像这样

这一点：

​

​

任何帮助都将不胜感激。

致以敬意，

Answer 1

根据aosmith的建议：

我做了以下工作，并得到了以下图：

ggplot(data=prods,aes(Date)) + 
  geom_line(data=prods[Year==2013,],aes(y=Prod, colour="red"),lwd = 1.3,) +    
  geom_line(data=prods[Year==2014,],aes(y=Prod, colour="blue"),lwd = 1.3) +   
  geom_hline(data=prods, aes(yintercept = median(Prod))) +
  scale_colour_manual(name="Period",values=c("blue","red", "black"), labels = c("2014","2013", "Median")) + 
  ylab("Actual Prod") + xlab(" ") + 
  theme(axis.title.y = element_text(size = 15, vjust=0.3)) +
  facet_wrap(~ SOM)

Plot如下所示：

​

​