<html><body><div style="color:; background-color:; font-family:arial, helvetica, sans-serif;font-size:13px"><div style="font-family: arial, helvetica, sans-serif; font-size: 13px; ">Obrigado Elias, </div><div style="font-family: arial, helvetica, sans-serif; font-size: 13px; "><br></div><div style="font-family: arial, helvetica, sans-serif; font-size: 13px; color: rgb(0, 0, 0); background-color: transparent; font-style: normal; ">Passou despercebido, corrigido:</div><div style="background-color: transparent; "><div style="background-color: transparent; "><font size="2">### coordenadas dos pontos</font></div><div style="background-color: transparent; "><font size="2"> x <- c(524227,524268,524268,524227,524227)</font></div><div style="background-color: transparent; "><font size="2"> y <- c(7978963,7978963,7978846,7978846,7978963)</font></div><div style="background-color: transparent; "><font size="2"> #</font></div><div
 style="background-color: transparent; "><font size="2"> #</font></div><div style="background-color: transparent; "><font size="2"> ### monta SpatialPointsDataFrame, como nao ha</font></div><div style="background-color: transparent; "><font size="2"> ### dados, criado um data.frame com a coluna ID</font></div><div style="background-color: transparent; "><font size="2"> require(sp)</font></div><div style="background-color: transparent; "><font size="2"><br></font></div><div style="background-color: transparent; "><font size="2"> Pontos <- SpatialPointsDataFrame(SpatialPoints(cbind(x,y)),data=data.frame(ID=1:length(x)))</font></div><div style="background-color: transparent; "><font size="2"><br></font></div><div style="background-color: transparent; "><font size="2">### assumindo uma particular projecao, e'</font></div><div style="background-color: transparent; "><font size="2">### necessario verificar se e' mesmo
 esta</font></div><div style="background-color: transparent; "><font size="2">proj4string(Pontos) <- CRS('+proj=utm +datum=WGS84')</font></div><div style="background-color: transparent; "><font size="2">require(plotGoogleMaps)</font></div><div style="background-color: transparent; "><font size="2">plotGoogleMaps(Pontos)</font></div><div style="background-color: transparent; color: rgb(0, 0, 0); font-size: 13px; font-family: arial, helvetica, sans-serif; font-style: normal; "><font size="2"><br></font></div><div style="background-color: transparent; color: rgb(0, 0, 0); font-size: 13px; font-family: arial, helvetica, sans-serif; font-style: normal; "><font size="2"><br></font></div></div>  <div style="font-family: arial, helvetica, sans-serif; font-size: 10pt; "> <div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt; "> <div dir="ltr"> <font size="2" face="Arial"> <hr size="1">  <b><span
 style="font-weight:bold;">De:</span></b> Elias T. Krainski <eliaskrainski@yahoo.com.br><br> <b><span style="font-weight: bold;">Para:</span></b> "r-br@listas.c3sl.ufpr.br" <r-br@listas.c3sl.ufpr.br> <br> <b><span style="font-weight: bold;">Enviadas:</span></b> Quarta-feira, 26 de Setembro de 2012 8:26<br> <b><span style="font-weight: bold;">Assunto:</span></b> Re: [R-br] RgoogleMaps e rgdal<br> </font> </div> <br><div id="yiv2064547879"><div><div style="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255); font-family: 'times new roman', 'new york', times, serif; font-size: 12pt; "><div><span>Essas coordenadas não estão em latlong. Coordenadas em latlong são em graus e vão de -180 a 180 (longitude) e de -90 a 90 (latitude).</span></div><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-family: 'times new roman',
 'new york', times, serif; font-size: 12pt; "> <div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt; "> <div dir="ltr"> <font size="2" face="Arial"> <hr size="1">  <b><span style="font-weight:bold;">De:</span></b> ASANTOS <alexandresantosbr@yahoo.com.br><br> <b><span style="font-weight:bold;">Para:</span></b> r-br@listas.c3sl.ufpr.br <br> <b><span style="font-weight:bold;">Enviadas:</span></b> Terça-feira, 25 de Setembro de 2012
 22:25<br> <b><span style="font-weight:bold;">Assunto:</span></b> Re: [R-br] RgoogleMaps e rgdal<br> </font> </div> <br><div id="yiv2064547879">
  

    
  
  <div>
    Boa noite pessoal,<br>
    <br>
            Refazendo o exemplo do Elias em coordenadas UTM, não tive
    sucesso (Erro: Geographical CRS given to non-conformant data). Olhei
    o datum e estava OK e também no manual e não me parece que há nada
    de errado, inclusive o exemplo clássico do meuse do pacote gstat
    utilizado no exemplo do pacote plotGoogleMaps esta em UTM, alguém
    poderia dar um help, segue CRM abaixo<br>
    <br>
     #<br>
    ### coordenadas dos pontos<br>
     x <- c(524227,524268,524268,524227,524227)<br>
     y <- c(7978963,7978963,7978846,7978846,7978963)<br>
     #<br>
     #<br>
     ### monta SpatialPointsDataFrame, como nao ha<br>
     ### dados, criado um data.frame com a coluna ID<br>
     require(sp)<br>
    Carregando pacotes exigidos: sp<br>
     Pontos <- SpatialPointsDataFrame(SpatialPoints(cbind(x,y)),<br>
    +   data=data.frame(ID=1:length(x)))<br>
     <br>
    ### assumindo uma particular projecao, e'<br>
    ### necessario verificar se e' mesmo esta<br>
     proj4string(Pontos) <- CRS('+proj=longlat +datum=WGS84')<br>
    Erro em `proj4string<-`(`*tmp*`, value = <S4 object of class
    "CRS">) : <br>
      Geographical CRS given to non-conformant data:  524268 7978963<br>
    <br>
    require(plotGoogleMaps)<br>
    plotGoogleMaps(Pontos)<br>
    Erro em spTransform(xSP, CRSobj, ...) : <br>
      No transformation possible from NA reference system<br>
    <br>
    <br>
    <br>
    <br>
    <div class="yiv2064547879moz-cite-prefix">Em 05/09/2012 07:44, Elias T. Krainski
      escreveu:<br>
    </div>
    <blockquote type="cite">
      <div style="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255); font-family: 'times new roman', 'new york', times, serif; font-size: 12pt; ">
        <div><span>
            <div>Lamento postar codigo sem teste... Este agora foi
              testado e funciona.</div>
            <div><br>
            </div>
            <div style="color: rgb(0, 0, 0); font-size: 16px; font-family: 'times new roman', 'new york', times, serif; background-color: transparent; font-style: normal; ">###
              coordenadas dos pontos </div>
            <div>x <- c(-43.565,-43.564,-43.563,-43.565,-43.564)  </div>
            <div>y <- c(-10.518,-10.466,-10.412,-10.516,-10.474)  </div>
            <div><br>
            </div>
            <div>### monta SpatialPointsDataFrame, como nao ha </div>
            <div>### dados, criado um data.frame com a coluna ID</div>
            <div>require(sp)</div>
            <div>Pontos <-
              SpatialPointsDataFrame(SpatialPoints(cbind(x,y)),</div>
            <div>  data=data.frame(ID=1:length(x)))</div>
            <div><br>
            </div>
            <div>### assumindo uma particular projecao, e'</div>
            <div>### necessario verificar se e' mesmo esta</div>
            <div>proj4string(Pontos) <- CRS('+proj=longlat
              +datum=WGS84')</div>
            <div><br>
            </div>
            <div>### sobrepoe ao google Maps e visualiza</div>
            <div>require(plotGoogleMaps) </div>
            <div>plotGoogleMaps(xyd)</div>
            <div><br>
            </div>
            <div>### melhores informacoes ver</div>
            <div>vignette("plotGoogleMaps-intro")</div>
            <div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt; "><br>
            </div>
          </span></div>
        <div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt; "> </div>
        <div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt; ">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-family: 'times new roman', 'new york', times, serif; font-size: 12pt; ">
              <div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt; ">
                <div dir="ltr"> <font face="Arial" size="2">
                    <hr size="1"> <b><span style="font-weight:bold;">De:</span></b>
                    Mauro Sznelwar <a rel="nofollow" class="yiv2064547879moz-txt-link-rfc2396E" ymailto="mailto:sznelwar@uol.com.br" target="_blank" href="mailto:sznelwar@uol.com.br"><sznelwar@uol.com.br></a><br>
                    <b><span style="font-weight:bold;">Para:</span></b>
                    Elias T. Krainski <a rel="nofollow" class="yiv2064547879moz-txt-link-rfc2396E" ymailto="mailto:eliaskrainski@yahoo.com.br" target="_blank" href="mailto:eliaskrainski@yahoo.com.br"><eliaskrainski@yahoo.com.br></a>
                    <br>
                    <b><span style="font-weight:bold;">Enviadas:</span></b>
                    Terça-feira, 4 de Setembro de 2012 23:03<br>
                    <b><span style="font-weight:bold;">Assunto:</span></b>
                    Re: [R-br] RgoogleMaps e rgdal<br>
                  </font> </div>
                <br>
                
                <div id="yiv2064547879">
                  <style></style>
                  <div>
                    <div><font face="Arial">Continua não dando certo:</font></div>
                    <div><font face="Arial">Creito que tem um erro no  <span style="BACKGROUND-COLOR:transparent;">xy <-
                          SpatialPoints(cbind(xy)) que deveria ser</span></font></div>
                    <div><font face="Arial"><span style="BACKGROUND-COLOR:transparent;">
                          <div style="background-color: transparent; font-family: Arial, Helvetica, sans-serif; color: rgb(69, 69, 69); font-size: 12px; "><font size="3"><span style="BACKGROUND-COLOR:transparent;">xy
                                <- SpatialPoints(cbind(x,y)) </span></font></div>
                          <div style="background-color: transparent; font-family: Arial, Helvetica, sans-serif; color: rgb(69, 69, 69); font-size: 12px; "><font size="3"><span style="BACKGROUND-COLOR:transparent;">E
                                mesmo corrigindo veja o acentece:</span></font></div>
                          <div style="background-color: transparent; font-family: Arial, Helvetica, sans-serif; color: rgb(69, 69, 69); font-size: 12px; "><font size="3"><span style="BACKGROUND-COLOR:transparent;"><font color="#000000" size="2">>
                                  plotGoogleMaps(x,y)<br>
                                  Erro em function (classes, fdef,
                                  mtable)  : <br>
                                    unable to find an inherited method
                                  for function "spTransform", for
                                  signature "numeric", "CRS"<br>
                                  > </font></span><br>
                            </font></div>
                        </span><br>
                      </font></div>
                    <blockquote style="BORDER-LEFT:#000000 2px solid;PADDING-LEFT:5px;PADDING-RIGHT:0px;MARGIN-LEFT:5px;MARGIN-RIGHT:0px;">
                      <div><br>
                      </div>
                      <div style="background-color: rgb(255, 255, 255); font-family: 'times new roman', 'new york', times, serif; color: rgb(0, 0, 0); font-size: 12pt; ">
                        <div><span>
                            <div style="background-color: transparent; font-family: Arial, Helvetica, sans-serif; color: rgb(69, 69, 69); font-size: 12px; ">Troquei
                              os pacotes. É necessário o pacote
                              plotGoogleMaps. Corrigindo:</div>
                            <div style="background-color: transparent; font-family: Arial, Helvetica, sans-serif; color: rgb(69, 69, 69); font-size: 12px; "><br>
                              y <-
                              c(-43.565,-43.564,-43.563,-43.565,-43.564)  <br>
                            </div>
                            <div style="background-color: transparent; font-family: Arial, Helvetica, sans-serif; color: rgb(69, 69, 69); font-size: 12px; ">x
                              <- <span style="BACKGROUND-COLOR:transparent;">c(-10.518,-10.466,-10.412,-10.516,-10.474) </span><span style="BACKGROUND-COLOR:transparent;"> </span></div>
                            <div><span style="background-color: transparent; font-family: Arial, Helvetica, sans-serif; color: rgb(69, 69, 69); font-size: 12px; "><br>
                              </span></div>
                            <div style="background-color: transparent; font-family: Arial, Helvetica, sans-serif; color: rgb(69, 69, 69); font-size: 12px; ">require(sp)</div>
                            <div style="background-color: transparent; font-family: Arial, Helvetica, sans-serif; color: rgb(69, 69, 69); font-size: 12px; "><span style="BACKGROUND-COLOR:transparent;">xy
                                <- SpatialPoints(cbind(xy))</span><br>
                            </div>
                            <div style="background-color: transparent; font-family: Arial, Helvetica, sans-serif; color: rgb(69, 69, 69); font-size: 12px; "><br>
                            </div>
                            <div style="background-color: transparent; font-family: Arial, Helvetica, sans-serif; color: rgb(69, 69, 69); font-size: 12px; ">require(plotGoogleMaps) </div>
                            <div style="background-color: transparent; font-family: Arial, Helvetica, sans-serif; color: rgb(69, 69, 69); font-size: 12px; ">plotGoogleMaps(xy)</div>
                          </span></div>
                        <div> </div>
                        <div>Elias T. Krainski<br>
                          <blockquote style="BORDER-LEFT:rgb(16,16,255) 2px solid;MARGIN-TOP:5px;PADDING-LEFT:5px;MARGIN-LEFT:5px;">
                            <div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt; ">
                              <div style="font-family:'times new
                                roman', 'new york', times, serif;font-size:12pt;"> </div>
                            </div>
                          </blockquote>
                        </div>
                      </div>
                    </blockquote>
                  </div>
                </div>
                
                <br>
                <br>
              </div>
            </div>
          </blockquote>
        </div>
      </div>
      <br>
      <fieldset class="yiv2064547879mimeAttachmentHeader"></fieldset>
      <br>
      <pre>_______________________________________________
R-br mailing list
<a rel="nofollow" class="yiv2064547879moz-txt-link-abbreviated" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a rel="nofollow" class="yiv2064547879moz-txt-link-freetext" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a rel="nofollow" class="yiv2064547879moz-txt-link-freetext" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</pre>
    </blockquote>
    <br>
    <pre class="yiv2064547879moz-signature">-- 
======================================================================
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Avenida dos Ramires, s/n
Caixa Postal 744
Bairro: Distrito Industrial 
Cáceres - MT                      CEP: 78.200-000
Fone: (+55) 65 8132-8112 (TIM)   (+55) 65 9686-6970 (VIVO)
<a rel="nofollow" class="yiv2064547879moz-txt-link-abbreviated" ymailto="mailto:e-mails:alexandresantosbr@yahoo.com.br" target="_blank" href="mailto:e-mails:alexandresantosbr@yahoo.com.br">e-mails:alexandresantosbr@yahoo.com.br</a> 
        <a rel="nofollow" class="yiv2064547879moz-txt-link-abbreviated" ymailto="mailto:alexandre.santos@cas.ifmt.edu.br" target="_blank" href="mailto:alexandre.santos@cas.ifmt.edu.br">alexandre.santos@cas.ifmt.edu.br</a>                    
======================================================================
</pre>
  </div>

</div><br>_______________________________________________<br>R-br mailing list<br><a rel="nofollow" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br><a rel="nofollow" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>Leia o guia de postagem (<a rel="nofollow" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">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></div></div><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>  </div></body></html>