Prezado Augusto, Muito obrigado!
Vou tentar esse script agora mesmo! Rodrigo Em 8 de novembro de 2011 10:44, Augusto Ribas <[email protected]>escreveu: > Vc pode usar o argumento col do plot para selecionar as cores, so > transformar o dia na cor desejada. > Coloquei um +1 do lado dos valores de dia que o 0 é cor branca então > fica "invisível" no plot. > Depois fazer a legenda. > Consulte a documentação dos parâmetros pra gráficos pra entender > melhor o argumento col e como fazer a legenda. > Segue um exemplinho, espero que seja o que necessita. > Se precisar de algo mais especifico pede usando esse CMD de partida :) > > > #Exemplo > Day<-c(0,0,0,0,1,1,1,1,2,2,2) > Lat<-c(23.3,23.35,23.4,23.4,24.2,24.1,24.4,24.36,24.5,25.2,25.3) > Long<-c(47.2,47.0,47.0,47.3,47.5,47.23,47.8,47.85,47.8,48.1,48.2) > dados<-data.frame(cbind(Day,Lat,Long)) > dados > #grafico > plot(Long~Lat,pch=16,col=Day+1) > #legenda > legend("topleft",legend=c("Dia 0","Dia 1","Dia 2"),pch=16,col=c(1,2,3)) > > Em 8 de novembro de 2011 09:26, Rodrigo Plei <[email protected]> > escreveu: > > Bom dia, lista. > > Tenho uma tabela de dados de posições geográficas (lat-long) por dia para > > uma população de larvas de peixes, que tem essa cara: > > > > Day Lat Long > > 0 23.3 47.2 > > 0 23.35 47.0 > > 0 23.4 47.0 > > 0 23.4 47.3 > > 1 24.2 47.5 > > 1 24.1 47.23 > > 1 24.4 47.8 > > 1 24.36 47.85 > > 2 24.5 47.8 > > 2 25.2 48.1 > > 2 25.3 48.2 > > . > > . > > Ou seja: cada linha corresponde a posição de uma larva em um determinado > > dia. > > Gostaria de plotar uma dispersão simples a trajetória de todas as larvas > > para todo o período estudado, mas a idéia é que cada ponto tenha uma cor > de > > acordo com a idade (dia), de forma a formar um gradiente com as cores do > > arco-iris. E também queria colocar uma barra de legenda para esse > gradiente > > (por exemplo: dia 0 = amarelo e dia 30: vermelho. > > Alguém pode me dar uma dica, ou ao menos indicar um pacote que permita > fazer > > isso? > > Desde já, grato. > > Rodrigo > > -- > > =8-->=8-->=8-->=8-->=8-->=8-->=8-->=8-->=8-->=8-->=8-->=8--> > > > > Rodrigo Silvestre Martins, PhD > > Bolsista FAPESP Pós-Doutorado > > > > Laboratório de Ecossistemas Pesqueiros (LabPesq) > > Universidade de São Paulo, Instituto Oceanográfico > > Praça do Oceanográfico, 191. Cidade Universitaria (sala 107-A/B) > > Butantã - São Paulo/SP, Brasil > > 05508-900 > > Tel: +55 11 3091 6549 > > Email: [email protected] ; [email protected]; [email protected] > > > > CV Lattes: http://lattes.cnpq.br/5350064124902777 > > > > > > > > > > > > > > > > > > > > > > _______________________________________________ > > 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. > > > > > > -- > Grato > Augusto C. A. Ribas > > Site Pessoal: http://augustoribas.heliohost.org > Lattes: http://lattes.cnpq.br/7355685961127056 > _______________________________________________ > 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. > -- =8-->=8-->=8-->=8-->=8-->=8-->=8-->=8-->=8-->=8-->=8-->=8--> Rodrigo Silvestre Martins, PhD Bolsista FAPESP Pós-Doutorado Laboratório de Ecossistemas Pesqueiros (LabPesq) Universidade de São Paulo, Instituto Oceanográfico Praça do Oceanográfico, 191. Cidade Universitaria (sala 107-A/B) Butantã - São Paulo/SP, Brasil 05508-900 Tel: +55 11 3091 6549 Email: [email protected] ; [email protected]; [email protected] CV Lattes: http://lattes.cnpq.br/5350064124902777
_______________________________________________ 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.
