[R-br] API de Georreferenciamento do Google

Helder Gramacho agrohelder em gmail.com
Sábado Fevereiro 15 16:09:18 BRST 2014


Olá Éder, boa tarde!

Resolvido, muito obrigado mais uma vez!


Hélder Santos
*agrohelder em gmail.com <agrohelder em hotmail.com>*



Em 14 de fevereiro de 2014 20:55, Éder Comunello
<comunello.eder em gmail.com>escreveu:

> Helder e demais colegas, boa noite!
>
> Boa parte dos problemas são decorrentes da atualização das APIs do Google,
> havendo mudança nos links e parâmetros a utilizar.
>
> No primeiro caso é só usar o pacote sugerido, com a ressalva de avaliar as
> coordenadas retornadas. Algumas podem não corresponder ao que se pretendia
> obter. Segue exemplo
>
> ### <code r>
> ### instala pacote se ainda não instalado...
> if (!"ggmap" %in% installed.packages()) {install.packages("ggmap", dep=T)}
> require(ggmap)
>
> locais <- c("Avenida Marcelino Pires, 3600,  Dourados, MS",
>             "Av. Marcelino Pires, 5488,      Dourados, MS",
>             "Avenida Marcelino Pires, NA,    Dourados, MS",
>             "Av. Marcelinho Ozires, 3000,    Dourados, MS",
>             "Rua Reinaldo Bianchi, 1650,     Dourados, MS",
>             "Rua Nononon Nonon, 2340,        Dourados, MS")
>
> geocode(locais)
> ### observar as coordenadas retornadas para locais!
> ### somente as duas primeira linhas correspondem à posição 'real' dos
> logradouros
>
> ### para obter informação sobre a coordenada use output="more"
> geocode(locais, output="more")
> geocode(locais, output="more")[c(1:4,10)] ### principais informações (ver
> type e loctype)
> ### </code>
>
> No segundo caso, parece que o pacote não foi instalado (usar
> install.packages() antes de require()).
>
> ### <code r>
> ### instala pacote se ainda não instalado...
> if (!"plotGoogleMaps" %in% installed.packages())
> {install.packages("plotGoogleMaps", dep=T)}
> require(plotGoogleMaps)
>
> ll <- geocode(locais)
>
> {
>           dat <- data.frame(ll, locais)
>           coordinates(dat)=~lon+lat
>           proj4string(dat) <- CRS("+proj=longlat +datum=WGS84")
> }
>
> plotGoogleMaps(dat) ### abrirá 'dat.htm' no browser padrão!!!
> ### </code>
>
> No terceiro caso, parece haver erros na linha de comando (cooimg).
>
> cooimg <- GetMap(center=c(9lon9=ll[2,4], 9lat9=ll[2,3]),
> zoom=16,maptype="roadmap", destfile="marimg.png", format="png32")
>
> Segue um exemplo reproduzível desdobrado dos exemplos anteriores...
>
> ### <code r>
> ### instala pacote se ainda não instalado...
> if (!"RgoogleMaps" %in% installed.packages())
> {install.packages("RgoogleMaps", dep=T)}
> require(RgoogleMaps)
> map <- GetMap(center=c(-22.22258, -54.76349), zoom=6, maptype="roadmap",
> destfile="tmp.png", format="png32")
> getwd(); dir(getwd(), pattern=".png$") ### lista arquivos .png salvos!
>
> PlotOnStaticMap(map) ### plota figura
> ### </code>
>
> Éder Comunello <c <comunello.eder em gmail.com>omunello.eder em gmail.com>
> Dourados, MS - [22 16.5'S, 54 49'W]
>
>
>
>
> _______________________________________________
> 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/20140215/3c4bb64d/attachment.html>


Mais detalhes sobre a lista de discussão R-br