r - 线图图例 + ABLINE ggplot

Question

我有以下 ggplot 并尝试在中位数处添加图例和 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)

我没有收到任何错误，但图像上没有图例或 abline 弹出。情节看起来像

这个：

任何帮助将不胜感激。

问候，

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)

情节如下所示：