<div dir="ltr">caros, estou a fazer uma figura com a poderosa ggplot2, mas infelizmente não consigo deixar como quero, e só a lenda, que ficou oscura por causa de um recheio que faz o segundo layer que estou a plotar:<div>
aqui vai o codigo:</div><div><br></div><div><div>library(ggplot2)</div><div>library(scales)</div><div><br></div><div style>#primer plot</div><div>p4 = ggplot(CPUE_GRAPH, aes(x=HAUL, y=CPUE, linetype=CodEnd)) +</div><div>  geom_line() +  scale_colour_brewer(palette="Set1")+ </div>
<div>  xlab("Time")  + ylab("CPUE (Kg/h)")</div><div><br></div><div style>#assim e a lenda que eu quero, a que aparece aqui agora</div><div style>p4</div><div><br></div><div style>#ficheiro adicional para classificar pela luz do dia</div>
<div><br></div><div>LIGHT2 <- read.csv('C:/projects/masterthesis/LIGHT2.csv')</div><div><br></div><div style>#estabelescer os ranges</div><div style><br></div><div>yrng <- range(CPUE_GRAPH$CPUE)</div><div>xrng <- range(CPUE_GRAPH$HAUL)</div>
<div><br></div><div style>#adicionar as listras obscuras</div><div style><br></div><div>p4 + geom_rect(aes(NULL, NULL, xmin = start, xmax = end,</div><div>               fill = light), ymin = yrng[1], ymax = yrng[2],</div>
<div>              data = LIGHT2) + scale_fill_manual(values = </div><div>                                                   alpha(c("white", "black"), 0.05))</div><div>              </div><div style># modificar o eixo x</div>
<div style><br></div><div>last_plot() + scale_x_discrete(limits=c('17:20', '21:55', '4:40', '10:20', '16:05', '22:10', </div><div>                                        '4:10', '10:25', '13:35', '18:45', '00:50', '7:20',</div>
<div>                                        '13:00', '18:35', '1:35', '6:15', '10:05', '16:10', </div><div>                                        '00:35', '6:30'))</div>
<div><br></div><div style># modificar ao orientação do eixo x</div><div style><br></div><div>last_plot()+theme(axis.text.x  = element_text(angle=90,  vjust=0.5, size=10))</div><div><br></div><div style>#como posso deixar a lenda só de ConEnd com a primeira figura?</div>
<div style><br></div><div style>agradeço sua ajuda</div><div style><br></div><div style>mando os dados em adjunto</div><div style><br></div><div style>muito obrigado</div><div style><br></div><div style>Carlos</div><div><br>
</div><div style>meu R e a versão 2.15.2 (2012-10-26) trabalho em R studio com SO Windows 7 home premium</div>-- <br>Carlos A. Pombo Sonderblohm<br>PhD Student on Marine Science (Fisheries)<br>Faculdade de Ciências e Tecnología<br>
Universidade do Algarve, <br>Campus de Gambelas<br>8005-139 Faro<br>Portugal<br>Tef. 289 800 905 ext. 7605<br><br>
</div></div>