<div dir="ltr">Boa tarde Rafael<div><br></div><div>Quem está com dúvidas fui eu, não o Elias...</div><div><br></div><div>Mas o código funcionou perfeitamente, muito obrigado.</div><div><br></div><div>Se utilizou este procedimento deve ter incluído dados ao polígono, se tiver algum código que faça isso, agradeço desde já.</div><div><br></div><div>Abraço</div><div><br></div><div>Hélio</div></div><div class="gmail_extra"><br><div class="gmail_quote">Em 21 de outubro de 2014 12:52, Rafael Tieppo [via R-br] <span dir="ltr"><<a href="mailto:ml-node+s2285057n4663325h43@n4.nabble.com" target="_blank">ml-node+s2285057n4663325h43@n4.nabble.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div style="color:#000;background-color:#fff;font-family:lucida console,sans-serif;font-size:13px"><div>Elias, </div><div>Pelo o que eu entendi, vc usou a funcao deldir(), no caso Voronoi para fazer os polígono da área. Se for isso acho que passei pelo mesmo processo.</div><div>Vou passar algumas etapas e uma função que improvisei e no meu caso deu certo. Vou explicar os procedimentos:</div><div><br></div><div>1) com a funcao deldir() vc faz seu polígonos na área</div><div>sss <- deldir( .....)</div><div>entao vc tem o objeto sss</div><div><br></div><div>2) Para gerar uma lista do objeto "sss" use a funcao tile.list()</div><div>sss_list <- tile.list(sss)</div><div><br></div><div>3) Agora desse objeto que é uma lista, vc tem que extrair o conjunto de polígonos</div><div>para isso improvisei uma função, grave ela no seu ambiente:</div><div><br></div><div>FUN_VOR_MAT <- function (A,TT) #TT é o arquivo, N o número do POL</div><div> {</div><div> AA <- 1</div><div> BB <- 2</div><div> NROW <- length (A[[TT]]$x) + 1 #add primeiro ponto</div><div><br></div><div><br></div><div> VORONOI_MATRIX <- matrix(0,NROW,2)</div><div> VORONOI_MATRIX[1:NROW,AA] <- A[[TT]]$x[1:NROW]</div><div> VORONOI_MATRIX[1:NROW,BB] <- A[[TT]]$y[1:NROW]</div><div> VORONOI_MATRIX[NROW,AA] <- A[[TT]]$x[1] #+ 1 add primeiro ponto</div><div> VORONOI_MATRIX[NROW,BB] <- A[[TT]]$y[1] #+ 1 add primeiro ponto</div><div><br></div><div> if(TT == NROW){</div><div> print("17/10/2014, <a href="http://user/SendEmail.jtp?type=node&node=4663325&i=0" rel="nofollow" link="external" target="_blank">[hidden email]</a> ")}</div><div> return(VORONOI_MATRIX)</div><div> }</div><div><span style="white-space:pre-wrap"> </span></div><div>4) Agora vc vai usar a funcao:</div><div>sss_areas <- lapply(1:length(sss_list), function (x) ( FUN_VOR_MAT(sss_list,x))
)</div><div><br></div><div>5) #Formando Polygons</div><div>sss_pols <- lapply(1:length(sss_areas), function(x) Polygons(list(Polygon(sss_areas[[x]])),</div><span class=""><div> ID = paste("reg", x, sep = "")))</div><div><br></div></span><div>6) Para converter em SpatialPolygins</div><div>sss_SPATIAL_POLS <- as.SpatialPolygons.PolygonsList(sss_pols, proj4string=CRS(as.character(NA)))<span style="white-space:pre-wrap"> </span></div><div><span style="white-space:pre-wrap"> </span></div><div>Se tudo correu bem é só comecar a usar o poly2nb(sss_SPATIAL_POLS)</div><div><br></div><div style="color:rgb(0,0,0);font-size:13px;font-family:'lucida console',sans-serif;font-style:normal;background-color:transparent">Boa sorte</div><div><span style="white-space:pre-wrap"> </span></div><div><span></span></div><div><span style="white-space:pre-wrap"> </span></div><div style="color:rgb(0,0,0);font-size:13px;font-family:'lucida console',sans-serif;font-style:normal;background-color:transparent"><span><br></span></div><div style="color:rgb(0,0,0);font-size:13px;font-family:'lucida console',sans-serif;font-style:normal;background-color:transparent"><span><br></span></div><div></div><div> </div><div><font size="1" style="font-family:tahoma,'new york',times,serif;line-height:normal"><span style="font-family:verdana,helvetica,sans-serif;font-weight:bold">Rafael
Tieppo</span><br style="font-family:verdana,helvetica,sans-serif"></font><br style="font-family:tahoma,'new york',times,serif;line-height:normal"></div> <div><br><br></div> </div><span class=""><br>_______________________________________________
<br>R-br mailing list
<br><a href="http://user/SendEmail.jtp?type=node&node=4663325&i=1" rel="nofollow" link="external" target="_blank">[hidden email]</a>
<br><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="nofollow" link="external" 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" rel="nofollow" link="external" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.
<br>
<br>
<hr noshade size="1" color="#cccccc">
</span><div style="color:#444;font:12px tahoma,geneva,helvetica,arial,sans-serif"><span class="">
<div style="font-weight:bold">If you reply to this email, your message will be added to the discussion below:</div>
</span><a href="http://r-br.2285057.n4.nabble.com/R-br-skater-e-deldir-tp4663303p4663325.html" target="_blank">http://r-br.2285057.n4.nabble.com/R-br-skater-e-deldir-tp4663303p4663325.html</a>
</div><div class="HOEnZb"><div class="h5">
<div style="color:#666;font:11px tahoma,geneva,helvetica,arial,sans-serif;margin-top:.4em;line-height:1.5em">
To unsubscribe from R-br, <a href="http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=unsubscribe_by_code&node=3357982&code=aGVsaW9nYWxsb3JvY2hhQGdtYWlsLmNvbXwzMzU3OTgyfC0xMzQ3NTkwMDY4" target="_blank">click here</a>.<br>
<a href="http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=macro_viewer&id=instant_html%21nabble%3Aemail.naml&base=nabble.naml.namespaces.BasicNamespace-nabble.view.web.template.NabbleNamespace-nabble.view.web.template.NodeNamespace&breadcrumbs=notify_subscribers%21nabble%3Aemail.naml-instant_emails%21nabble%3Aemail.naml-send_instant_email%21nabble%3Aemail.naml" rel="nofollow" style="font:9px serif" target="_blank">NAML</a>
</div></div></div></blockquote></div><br><br clear="all"><div><br></div>-- <br>Hélio Gallo Rocha<br>IFSULDEMINAS - Câmpus Muzambinho<br>
</div>