<div dir="ltr"><div>Senhores, bom dia!</div><div><br></div><div>Aproveitando a discussão, encaminho uma sugestão de outro pacote para fins similares. A principal diferença é poder optar por resoluções diferentes e a possibilidade de excluir a representação por múltiplos polígonos utilizando ("less islands" ou "li")</div><br><div><div><font face="monospace, monospace">### <code r></font></div><div><font face="monospace, monospace">require(rworldmap)</font></div><div><font face="monospace, monospace">require(rworldxtra) # necessário para "high resolution"</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">world <- getMap(resolution = "li")</font></div><div><font face="monospace, monospace">### resolution: "coarse","low","less islands","li","high" (require rworldxtra)</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">grep("Bra.il", world@data$ADMIN) #23</font></div><div><font face="monospace, monospace">map <- world@polygons[[23]]@Polygons[[1]]@coords</font></div><div><font face="monospace, monospace">map.sp <- SpatialPolygons(list(world@polygons[[23]]))</font></div><div><font face="monospace, monospace">map.spdf <- world[23,]</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">parOri <- par(no.readonly=T)</font></div><div><font face="monospace, monospace">par(mfrow=c(1,3))</font></div><div><font face="monospace, monospace">plot(map, asp=1, type="l", col=2)</font></div><div><font face="monospace, monospace">plot(map.sp, axes=T, bor=2)</font></div><div><font face="monospace, monospace">plot(map.spdf, axes=T, bor=2)</font></div><div><font face="monospace, monospace">par(parOri)</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">sapply(ls(patt="^map"), object.size)</font></div><div><font face="monospace, monospace">### </ code></font></div></div></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature"><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div></div>
<br><div class="gmail_quote">Em 6 de março de 2015 22:12, Paulo Justiniano <span dir="ltr"><<a href="mailto:paulojus@leg.ufpr.br" target="_blank">paulojus@leg.ufpr.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">isto é pq certos municipios e estados podem ser definidos por mais de um poligono<br>
<br>
Por isto p polygon que defini a unidade é formada por uma lista de Polygons, que é o desesho de cada (sub) área<br>
<br>
Pense por exemplo em um estado com ilhas que pertençam a ele.<div class="HOEnZb"><div class="h5"><br>
<br>
<br>
<br>
On Fri, 6 Mar 2015, Augusto Ribas wrote:<br>
<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Consegui.<br>
<br>
O que eu queria era o seguinte<br>
<br>
brasil<-wrld_simpl[21,]<br>
brasil@polygons[[1]]@Polygons[<u></u>[1]]@coords<br>
plot(brasil@polygons[[1]]@<u></u>Polygons[[1]]@coords,type="l")<br>
<br>
Acho que não estava entendendo o tal do Polygons dentro de polygons. Estrutura complicada.<br>
Mas de qualquer forma agradeço a atenção. Bom fim de semana a todos.<br>
<br>
Em 6 de março de 2015 17:11, Augusto Ribas <<a href="mailto:ribas.aca@gmail.com" target="_blank">ribas.aca@gmail.com</a>> escreveu:<br>
Ola pessoal, estou com uma duvida aqui, como eu retiro as coordenadas que formam o polígono<br>
do Brasil de um spatialpolygondataframe.<br>
<br>
No pacote maptools tem o wrld_simpl que é um mapa do mundo, um dos polígonos é o mapa do Brasil,<br>
como eu consigo somente os pontos, coordenadas na ordem para fazer o polígono, não estou<br>
conseguindo entender como extrai essa informação<br>
<br>
<br>
######<br>
library(maptools)<br>
data(wrld_simpl)<br>
which(wrld_simpl$NAME=="<u></u>Brazil")<br>
<br>
plot(wrld_simpl[21,])<br>
wrld_simpl[21,]<br>
#######<br>
<br>
Eu gostaria ter os pontos para escrever polygon(pontos) ou plot(pontos,type="l") e desenhar o<br>
mapa em um plot igual acima, tem como fazer isso?<br>
<br>
--<br>
Grato<br>
Augusto C. A. Ribas<br>
<br>
Site Pessoal: <a href="http://recologia.com.br/" target="_blank">http://recologia.com.br/</a><br>
Github: <a href="https://github.com/Squiercg" target="_blank">https://github.com/<u></u>Squiercg</a><br>
Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/<u></u>7355685961127056</a><br>
<br>
<br>
<br>
<br>
--<br>
Grato<br>
Augusto C. A. Ribas<br>
<br>
Site Pessoal: <a href="http://recologia.com.br/" target="_blank">http://recologia.com.br/</a><br>
Github: <a href="https://github.com/Squiercg" target="_blank">https://github.com/<u></u>Squiercg</a><br>
Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/<u></u>7355685961127056</a><br>
<br>
</blockquote>
</div></div><br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>