[R-br] Shape file + Seta

[Augusto Ribas]

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 em 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 em 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 em 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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20120427/686d0e3e/attachment.html>