Легенда графика + ABLINE ggplot

У меня есть следующий 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)

Я не получаю никаких ошибок, но на изображении нет ни легенды, ни аблайна. Сюжет выглядит как

это:

введите здесь описание изображения

Любая помощь будет высоко ценится.

с уважением,


r time-series ggplot2 legend line-plot
person Shery    schedule 12.11.2014    source источник
comment
Не могли бы вы предоставить хотя бы часть ваших данных, чтобы ваш код был воспроизводимым?   -  person cdeterman    schedule 12.11.2014
comment
Я не верю, что есть аргумент h для geom_abline. Вы можете определить как intercept, так и установить slope в 0 или использовать geom_hline (наглядные примеры см. на странице справки). Вы получаете легенды, когда такая эстетика, как color, находится внутри aes.   -  person aosmith    schedule 12.11.2014

Ответы (1)


arrow_upward
0
arrow_downward

Согласно совету аосмита:

Я сделал следующее и смог получить следующий сюжет:

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)

Сюжет выглядит так:

введите здесь описание изображения

person Shery    schedule 12.11.2014