Shape file + Seta

Senhores estou plotando um shape file de um Estado e colorindo dois municípios de interesse, queria plotar uma seta apontando de um para o outro. Tentei usar a função arrows em conjunto com a latitude e longitude do shape das cidades, mas não consegui. Alguém tem alguma sugestão? Abs -- Vinicius Brito Rocha. Estatístico e Atuário, Mestre em Pesquisa Operacional www.aplicademic.blogspot.com http://twitter.com/viniciusbritor "Não se preocupe muito com as suas dificuldades em Matemática, posso assegurar-lhe que as minhas são ainda maiores." - Albert Einstein.

Como vc nao postou nada, vou usar o exemplo que vem no pacote maptools install.packages("maptools") library(maptools) #abre um mapinha xx <- readShapePoly(system.file("shapes/sids.shp", package="maptools")[1], IDvar="FIPSNO", proj4string=CRS("+proj=longlat +ellps=clrk66")) #olha ele e plota ele summary(xx) xx$NAME #no caso eu usei col para colorir as 2 primeiras cidades, vc tem que olhar o NAME pra ver o que quer colorir plot(xx, border="blue", axes=TRUE, las=1,col=c(2,2,rep(0,98))) #da um ?coordinates pra ver o que cordinates ta fazendo library(sp) #ai usa ele pra faze os 2 pontinhos da seta coordinates(xx)[1,] arrows(coordinates(xx)[1,1],coordinates(xx)[1,2]+1.5,coordinates(xx)[1,1],coordinates(xx)[1,2]) arrows(coordinates(xx)[2,1],coordinates(xx)[2,2]+1.5,coordinates(xx)[2,1],coordinates(xx)[2,2]) #Mais tarde devem aparecer soluções melhores, mas assim da pra quebrar o galho se for fazer poucas setas Em 27 de abril de 2012 09:32, Vinicius Brito Rocha <viniciusbritor@gmail.com
escreveu:
Senhores estou plotando um shape file de um Estado e colorindo dois municípios de interesse, queria plotar uma seta apontando de um para o outro.
Tentei usar a função arrows em conjunto com a latitude e longitude do shape das cidades, mas não consegui.
Alguém tem alguma sugestão?
Abs
-- Vinicius Brito Rocha. Estatístico e Atuário, Mestre em Pesquisa Operacional
www.aplicademic.blogspot.com http://twitter.com/viniciusbritor
"Não se preocupe muito com as suas dificuldades em Matemática, posso assegurar-lhe que as minhas são ainda maiores." - Albert Einstein.
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br 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

Desculpe, esqueci que era de um municipio pro outro. No caso é so usar o pontos de um e os pontos do outro, mais facil. arrows(coordinates(xx)[1,1],coordinates(xx)[1,2],coordinates(xx)[2,1],coordinates(xx)[2,2]) Ai tem que aumenta a linha pra ficar mais bonito acho. Em 27 de abril de 2012 10:15, Augusto Ribas <ribas.aca@gmail.com> escreveu:
Como vc nao postou nada, vou usar o exemplo que vem no pacote maptools
install.packages("maptools") library(maptools)
#abre um mapinha xx <- readShapePoly(system.file("shapes/sids.shp", package="maptools")[1], IDvar="FIPSNO", proj4string=CRS("+proj=longlat +ellps=clrk66"))
#olha ele e plota ele summary(xx) xx$NAME
#no caso eu usei col para colorir as 2 primeiras cidades, vc tem que olhar o NAME pra ver o que quer colorir plot(xx, border="blue", axes=TRUE, las=1,col=c(2,2,rep(0,98)))
#da um ?coordinates pra ver o que cordinates ta fazendo
library(sp) #ai usa ele pra faze os 2 pontinhos da seta coordinates(xx)[1,]
arrows(coordinates(xx)[1,1],coordinates(xx)[1,2]+1.5,coordinates(xx)[1,1],coordinates(xx)[1,2])
arrows(coordinates(xx)[2,1],coordinates(xx)[2,2]+1.5,coordinates(xx)[2,1],coordinates(xx)[2,2])
#Mais tarde devem aparecer soluções melhores, mas assim da pra quebrar o galho se for fazer poucas setas
Em 27 de abril de 2012 09:32, Vinicius Brito Rocha < viniciusbritor@gmail.com> escreveu:
Senhores estou plotando um shape file de um Estado e colorindo dois municípios de interesse, queria plotar uma seta apontando de um para o outro.
Tentei usar a função arrows em conjunto com a latitude e longitude do shape das cidades, mas não consegui.
Alguém tem alguma sugestão?
Abs
-- Vinicius Brito Rocha. Estatístico e Atuário, Mestre em Pesquisa Operacional
www.aplicademic.blogspot.com http://twitter.com/viniciusbritor
"Não se preocupe muito com as suas dificuldades em Matemática, posso assegurar-lhe que as minhas são ainda maiores." - Albert Einstein.
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br 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
-- Grato Augusto C. A. Ribas Site Pessoal: http://augustoribas.heliohost.org Lattes: http://lattes.cnpq.br/7355685961127056
participantes (2)
-
Augusto Ribas
-
Vinicius Brito Rocha