[R-br] problema com a lenda de um line plot de ggplot2

[Carlos pombo sonderblohm]

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:
aqui vai o codigo:

library(ggplot2)
library(scales)

#primer plot
p4 = ggplot(CPUE_GRAPH, aes(x=HAUL, y=CPUE, linetype=CodEnd)) +
  geom_line() +  scale_colour_brewer(palette="Set1")+
  xlab("Time")  + ylab("CPUE (Kg/h)")

#assim e a lenda que eu quero, a que aparece aqui agora
p4

#ficheiro adicional para classificar pela luz do dia

LIGHT2 <- read.csv('C:/projects/masterthesis/LIGHT2.csv')

#estabelescer os ranges

yrng <- range(CPUE_GRAPH$CPUE)
xrng <- range(CPUE_GRAPH$HAUL)

#adicionar as listras obscuras

p4 + geom_rect(aes(NULL, NULL, xmin = start, xmax = end,
               fill = light), ymin = yrng[1], ymax = yrng[2],
              data = LIGHT2) + scale_fill_manual(values =
                                                   alpha(c("white",
"black"), 0.05))

# modificar o eixo x

last_plot() + scale_x_discrete(limits=c('17:20', '21:55', '4:40', '10:20',
'16:05', '22:10',
                                        '4:10', '10:25', '13:35', '18:45',
'00:50', '7:20',
                                        '13:00', '18:35', '1:35', '6:15',
'10:05', '16:10',
                                        '00:35', '6:30'))

# modificar ao orientação do eixo x

last_plot()+theme(axis.text.x  = element_text(angle=90,  vjust=0.5,
size=10))

#como posso deixar a lenda só de ConEnd com a primeira figura?

agradeço sua ajuda

mando os dados em adjunto

muito obrigado

Carlos

meu R e a versão 2.15.2 (2012-10-26) trabalho em R studio com SO Windows 7
home premium
-- 
Carlos A. Pombo Sonderblohm
PhD Student on Marine Science (Fisheries)
Faculdade de Ciências e Tecnología
Universidade do Algarve,
Campus de Gambelas
8005-139 Faro
Portugal
Tef. 289 800 905 ext. 7605
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130517/016e4648/attachment.html>
-------------- Próxima Parte ----------
Um anexo não-texto foi limpo...
Nome: LIGHT2.csv
Tipo: text/csv
Tamanho: 1332 bytes
Descrição: não disponível
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130517/016e4648/attachment.csv>
-------------- Próxima Parte ----------
Um anexo não-texto foi limpo...
Nome: CPUE_GRAPH.xls
Tipo: application/vnd.ms-excel
Tamanho: 27136 bytes
Descrição: não disponível
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130517/016e4648/attachment.xls>