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
haul,start,end,CodEnd,light 1,0,1.5,LOW,DAY 1,0,1.5,UP,DAY 1,0,1.5,TOTAL,DAY 2,1.5,2.5,LOW,NIGHT 2,1.5,2.5,UP,NIGHT 2,1.5,2.5,TOTAL,NIGHT 3,2.5,3.5,LOW,NIGHT 3,2.5,3.5,UP,NIGHT 3,2.5,3.5,TOTAL,NIGHT 4,3.5,4.5,LOW,DAY 4,3.5,4.5,UP,DAY 4,3.5,4.5,TOTAL,DAY 5,4.5,5.5,LOW,DAY 5,4.5,5.5,UP,DAY 5,4.5,5.5,TOTAL,DAY 6,5.5,6.5,LOW,NIGHT 6,5.5,6.5,UP,NIGHT 6,5.5,6.5,TOTAL,NIGHT 7,6.5,7.5,LOW,NIGHT 7,6.5,7.5,UP,NIGHT 7,6.5,7.5,TOTAL,NIGHT 8,7.5,8.5,LOW,DAY 8,7.5,8.5,UP,DAY 8,7.5,8.5,TOTAL,DAY 9,8.5,9.5,LOW,DAY 9,8.5,9.5,UP,DAY 9,8.5,9.5,TOTAL,DAY 10,9.5,10.5,LOW,DAY 10,9.5,10.5,UP,DAY 10,9.5,10.5,TOTAL,DAY 11,10.5,11.5,LOW,NIGHT 11,10.5,11.5,UP,NIGHT 11,10.5,11.5,TOTAL,NIGHT 12,11.5,12.5,LOW,DAY 12,11.5,12.5,UP,DAY 12,11.5,12.5,TOTAL,DAY 13,12.5,13.5,LOW,DAY 13,12.5,13.5,UP,DAY 13,12.5,13.5,TOTAL,DAY 14,13.5,14.5,LOW,DAY 14,13.5,14.5,UP,DAY 14,13.5,14.5,TOTAL,DAY 15,14.5,15.5,LOW,NIGHT 15,14.5,15.5,UP,NIGHT 15,14.5,15.5,TOTAL,NIGHT 16,15.5,16.5,LOW,NIGHT 16,15.5,16.5,UP,NIGHT 16,15.5,16.5,TOTAL,NIGHT 17,16.5,17.5,LOW,DAY 17,16.5,17.5,UP,DAY 17,16.5,17.5,TOTAL,DAY 18,17.5,18.5,LOW,DAY 18,17.5,18.5,UP,DAY 18,17.5,18.5,TOTAL,DAY 19,18.5,19.5,LOW,NIGHT 19,18.5,19.5,UP,NIGHT 19,18.5,19.5,TOTAL,NIGHT 20,19.5,20.5,LOW,NIGHT 20,19.5,20.5,UP,NIGHT 20,19.5,20.5,TOTAL,NIGHT
CPUE_GRAPH.xls
Description: MS-Excel spreadsheet
_______________________________________________ R-br mailing list [email protected] https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
