<div dir="ltr"><div><div><div>Consegui.<br><br></div>O que eu queria era o seguinte<br><br>brasil<-wrld_simpl[21,]<br>brasil@polygons[[1]]@Polygons[[1]]@coords<br>plot(brasil@polygons[[1]]@Polygons[[1]]@coords,type="l")<br><br></div>Acho que não estava entendendo o tal do Polygons dentro de polygons. Estrutura complicada.<br></div>Mas de qualquer forma agradeço a atenção. Bom fim de semana a todos.<br></div><div class="gmail_extra"><br><div class="gmail_quote">Em 6 de março de 2015 17:11, Augusto Ribas <span dir="ltr"><<a href="mailto:ribas.aca@gmail.com" target="_blank">ribas.aca@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div>Ola pessoal, estou com uma duvida aqui, como eu retiro as coordenadas que formam o polígono do Brasil de um spatialpolygondataframe.<br><br></div>No pacote maptools tem o wrld_simpl que é um mapa do mundo, um dos polígonos é o mapa do Brasil, como eu consigo somente os pontos, coordenadas na ordem para fazer o polígono, não estou conseguindo entender como extrai essa informação<br><br><br>######<br><div><div>library(maptools)<br>data(wrld_simpl)<br>which(wrld_simpl$NAME=="Brazil")<br><br>plot(wrld_simpl[21,])<br>wrld_simpl[21,]<br>#######<br><br></div><div>Eu gostaria ter os pontos para escrever polygon(pontos) ou plot(pontos,type="l") e desenhar o mapa em um plot igual acima, tem como fazer isso?<span class="HOEnZb"><font color="#888888"><br clear="all"></font></span></div><span class="HOEnZb"><font color="#888888"><div><br>-- <br><div><div dir="ltr"><div>Grato<br>Augusto C. A. Ribas</div>
<div> </div>
<div>Site Pessoal: <a href="http://recologia.com.br/" target="_blank">http://recologia.com.br/</a><a href="http://augustoribas.heliohost.org" target="_blank"></a></div><div>Github: <a href="https://github.com/Squiercg" target="_blank">https://github.com/Squiercg</a></div>
<div>Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a><br></div></div></div>
</div></font></span></div></div>
</blockquote></div><br><br clear="all"><br>-- <br><div class="gmail_signature"><div dir="ltr"><div>Grato<br>Augusto C. A. Ribas</div>
<div> </div>
<div>Site Pessoal: <a href="http://recologia.com.br/" target="_blank">http://recologia.com.br/</a><a href="http://augustoribas.heliohost.org" target="_blank"></a></div><div>Github: <a href="https://github.com/Squiercg" target="_blank">https://github.com/Squiercg</a></div>
<div>Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a><br></div></div></div>
</div>