<html><body><div style="color:#000; background-color:#fff; font-family:times new roman, new york, times, serif;font-size:12pt"><div><span>Acho que o correto seria informar a região na projeção UTM, não na longlat. Assim, você teria:</span></div><div><br></div><div><span>Coord <- SpatialPoints(cbind(dados$coord_x,dados$coord_y), proj4string=CRS("+proj=longlat +datum=WGS84"))<br>utm <- spTransform(Coord, CRS("+proj=utm </span><span style="font-size: 12pt; ">+zone=22S</span><span style="font-size: 12pt; ">"))</span></div><div><br></div>Me parece que essa coordenada fica na zona 23S...<br class="Apple-interchange-newline"><div> </div><div>Elias T. Krainski<br><blockquote style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; margin-top: 5px; padding-left: 5px;"> <div style="font-size: 12pt; font-family: 'times new roman', 'new york', times, serif; "> <div style="font-size: 12pt; font-family: 'times new roman', 'new york',
times, serif; "> <div dir="ltr"> <font size="2" face="Arial"> <hr size="1"> <b><span style="font-weight:bold;">De:</span></b> Samuel Carvalho <samukajm@yahoo.com.br><br> <b><span style="font-weight: bold;">Para:</span></b> r-br <r-br@listas.c3sl.ufpr.br> <br> <b><span style="font-weight: bold;">Enviadas:</span></b> Terça-feira, 15 de Maio de 2012 10:32<br> <b><span style="font-weight: bold;">Assunto:</span></b> [R-br] tranformar LatLong para UTM<br> </font> </div> <br><meta http-equiv="x-dns-prefetch-control" content="off"><div id="yiv1060387897"><div><div style="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255); font-size: 12pt; font-family: 'times new roman', 'new york', times, serif; "><div><span>Bom dia caros membros do r-br,</span></div><div><span>Alguém poderia auxiliar na transformação de coordenadas coletadas em LatLong para UTM?</span></div><div><span>Segue um cmr seguido de um print de parte dos dados (adaptado do post
do Marcelo Costa em 20/09/2011)<br></span></div><div><br><span></span></div><div><span>dados[1,]</span></div><div><span>coord_x coord_y</span></div><div><span class="yiv1060387897Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; font-size: 16px; font-family: Arial; "><span class="yiv1060387897Apple-style-span" style="font-size: 13px; line-height: 17px; white-space: pre-wrap; font-family: 'Lucida Console'; "><pre class="yiv1060387897GD40030CLR" style="font-size: 10pt !important; outline-style: none; outline-color: initial; border-top-style: none; border-right-style: none; border-bottom-style: none; border-left-style: none; border-color: initial; white-space: pre-wrap;
margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; line-height: 1.3; font-family: 'Lucida Console'; ">-45.33402 -23.31597<span class="yiv1060387897Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; font-size: 16px; font-family: Arial; "><span class="yiv1060387897Apple-style-span" style="font-family:'Lucida
Console';font-size:13px;line-height:17px;white-space:pre-wrap;"></span></span></pre></span></span></div><div><span>Coord <- SpatialPoints(cbind(dados$coord_x,dados$coord_y), proj4string=CRS("+proj=longlat +zone=22S +datum=WGS84"))<br>utm <- spTransform(Coord, CRS("+proj=utm"))</span></div><div><br><span></span></div><div><span>Apesar do comando ter rodado, os resultados diferem quando comparado a um site de transformacao de coordenadas que encontrei na web</span></div><div><span>(_http://home.hiwaay.net/~taylorc/toolbox/geography/geoutm.html)</span></div><div><span>Outro ponto é que estas coordenadas constituem como uma variável do dataframe "dados" e com a transformação sugerida acima eu nao consigo incorporar os resultados como uma nova coluna no dataframe</span></div><div><br><span></span></div><div><span>Grato pela
atenção</span></div><div><span>Samuel<br></span></div><div><span><br></span></div><div> </div><div style="font-family: courier, monaco, monospace, sans-serif; "><font size="3"><b>====================================</b></font></div><div style="font-family: courier, monaco, monospace, sans-serif; "><font size="3"><b>Samuel P. C. Carvalho<br></b><font color="#000000" size="2">Mestre em Ciências Florestais [UFLA]</font></font></div><div style="font-family: courier, monaco, monospace, sans-serif; "><font color="#000000" size="2">Doutorando em Recursos Florestais [ESALQ/USP]</font></div><div style="font-family: courier, monaco, monospace, sans-serif; "><font size="2">=============================================</font></div></div></div></div><meta http-equiv="x-dns-prefetch-control" content="on"><br>_______________________________________________<br>R-br mailing list<br><a ymailto="mailto:R-br@listas.c3sl.ufpr.br"
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><br> </div> </div> </blockquote></div> </div></body></html>