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)

プロットは次のようになります。