Добавить легенду geom_vline с существующей легендой geom_line - PullRequest
Новая
       12

Добавить легенду geom_vline с существующей легендой geom_line

0 голосов
/ 01 ноября 2018

У меня проблема с добавлением легенд geom_vline, когда у меня уже есть очень хорошо определенные легенды geom_line, мой код выглядит следующим образом: 

g1=ggplot(M7, aes(x =CODT, y =TNA, group =Tre7))
g1=g1+geom_line(aes(color=Tre7, linetype=Tre7), size=0.8)
g1=g1+scale_color_manual(values=c("#7FCCE7", "#DC693F"), name  ="Groups", breaks=c("0", "1"),labels=c("Control", "Treated"))
g1=g1+scale_linetype_manual(values=c("solid", "dotdash"), name  ="Groups", breaks=c("0", "1"),labels=c("Control", "Treated"))
g1=g1+geom_vline(xintercept=122,linetype="solid", size=1, color="#9B9FA1")
g1=g1+labs(x="Time Period", y="Births by 1000 people")
g1=g1+ggtitle("Mean of Birth Rates for Treated and Control")+scale_x_continuous(breaks=c(0,24,48,72,96,120,144,168,192), labels=c(2000, 2002, 2004, 2006, 2008, 2010, 2012, 2014, 2016))+theme_economist_white()
g1

В результате получаю:

geom line and geom vline plot

Если CODT id - период времени en Tre7 - фиктивная переменная для обработанных и контрольных, TNA - это коэффициенты рождения этих двух групп.

Мой вопрос: как я могу получить хорошую легенду для geom_vline с меткой "27F", которая не мешает легендам geom_line? Я пытался с show.legend = TRUE и Show_guide = TRUE, но ничего не работает.

...