[R-br] RgoogleMaps e rgdal

[Mauricio Cardeal]

Elias, testei o código e obtive um erro no final.

> ### coordenadas dos pontos
> x <- c(-43.565,-43.564,-43.563,-43.565,-43.564)
> y <- c(-10.518,-10.466,-10.412,-10.516,-10.474)
>
> ### monta SpatialPointsDataFrame, como nao ha
> ### dados, criado um data.frame com a coluna ID
> require(sp)
> Pontos <- SpatialPointsDataFrame(SpatialPoints(cbind(x,y)),
+                                  data=data.frame(ID=1:length(x)))
>
> ### assumindo uma particular projecao, e'
> ### necessario verificar se e' mesmo esta
> proj4string(Pontos) <- CRS('+proj=longlat +datum=WGS84')
>
> ### sobrepoe ao google Maps e visualiza
> require(plotGoogleMaps)
> plotGoogleMaps(xyd)
Erro em spTransform(SP, CRS("+proj=longlat +datum=WGS84")) :
  erro na avaliação do argumento 'x' na seleção do método para a função
'spTransform': 'Erro: objeto 'xyd' não encontrado


Mauricio


Em 5 de setembro de 2012 08:44, Elias T. Krainski <
eliaskrainski em yahoo.com.br> escreveu:

> Lamento postar codigo sem teste... Este agora foi testado e funciona.
>
> ### coordenadas dos pontos
> x <- c(-43.565,-43.564,-43.563,-43.565,-43.564)
> y <- c(-10.518,-10.466,-10.412,-10.516,-10.474)
>
> ### monta SpatialPointsDataFrame, como nao ha
> ### dados, criado um data.frame com a coluna ID
> require(sp)
> Pontos <- SpatialPointsDataFrame(SpatialPoints(cbind(x,y)),
>   data=data.frame(ID=1:length(x)))
>
> ### assumindo uma particular projecao, e'
> ### necessario verificar se e' mesmo esta
> proj4string(Pontos) <- CRS('+proj=longlat +datum=WGS84')
>
> ### sobrepoe ao google Maps e visualiza
> require(plotGoogleMaps)
> plotGoogleMaps(xyd)
>
> ### melhores informacoes ver
> vignette("plotGoogleMaps-intro")
>
>
> Elias T. Krainski
>
>   ------------------------------
> *De:* Mauro Sznelwar <sznelwar em uol.com.br>
> *Para:* Elias T. Krainski <eliaskrainski em yahoo.com.br>
> *Enviadas:* Terça-feira, 4 de Setembro de 2012 23:03
>
> *Assunto:* Re: [R-br] RgoogleMaps e rgdal
>
>  Continua não dando certo:
> Creito que tem um erro no  xy <- SpatialPoints(cbind(xy)) que deveria ser
>  xy <- SpatialPoints(cbind(x,y))
> E mesmo corrigindo veja o acentece:
> > plotGoogleMaps(x,y)
> Erro em function (classes, fdef, mtable)  :
>   unable to find an inherited method for function "spTransform", for
> signature "numeric", "CRS"
> >
>
>
>  Troquei os pacotes. É necessário o pacote plotGoogleMaps. Corrigindo:
>
> y <- c(-43.565,-43.564,-43.563,-43.565,-43.564)
> x <- c(-10.518,-10.466,-10.412,-10.516,-10.474)
>
> require(sp)
> xy <- SpatialPoints(cbind(xy))
>
> require(plotGoogleMaps)
> plotGoogleMaps(xy)
>
> Elias T. Krainski
>
>
>
>
>
>
> _______________________________________________
> R-br mailing list
> R-br em listas.c3sl.ufpr.br
> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça
> código mínimo reproduzível.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20120905/2ecb93c9/attachment.html>