Caro Luís Gustavo, Muito obrigado, resolvido. Tem mais dois procedimentos que utilizam funções do Google no mesmo tutorial que também apresentam problemas, a primeira é para visualizar dados georreferenciados no google Maps adicionando um layer, ele se refere a um pacote chamado plotGoogleMaps que o R não consegue instalar: require(plotGoogleMaps) dat <- data.frame(Tipo=ltipo, Logradouro=lnome, Numero=enum) llxydf <- SpatialPointsDataFrame(llxy, dat) plotGoogleMaps(llxy) resulta no erro:
require(plotGoogleMaps) Carregando pacotes exigidos: plotGoogleMaps Warning message: In library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE, : there is no package called 'plotGoogleMaps'
O segundo procedimento é para obter uma imagem do googleMaps e vizualizá-la usando o R: require(RgoogleMaps) cooimg <- GetMap(center=c(9lon9=ll[2,4], 9lat9=ll[2,3]), zoom=16,maptype="roadmap", destfile="marimg.png", format="png32") resulta no seguinte erro: [1] " http://maps.google.com/maps/api/staticmap?center=&zoom=16&size=640x640&mapty... " Error in readChar(con, 5L, useBytes = TRUE) : cannot open the connection In addition: Warning message: In readChar(con, 5L, useBytes = TRUE) : cannot open compressed file 'marimg.png.rda', probable reason 'No such file or directory' Se tiver alguma pista de como resolver agradeço mais uma vez, Hélder Santos *agrohelder@gmail.com <agrohelder@hotmail.com>* Em 13 de fevereiro de 2014 15:05, Luís Gustavo <lgsilvaesilva@gmail.com>escreveu:
install.packages("ggmap") require(ggmap) ?geocode
require(ggmap) ltipo <- c("av", "rua", NA) lnome <- c("Brasil", "joubert", "prefeitura municipal") enum <- c(3500, 100, NA) end <- paste(ltipo, lnome, enum, "Maringa", "PR", "BR", sep=",") geocode(end)
Em 13 de fevereiro de 2014 16:01, Helder Gramacho <agrohelder@gmail.com>escreveu:
Bom dia,
Estou tentando conhecer um pouco mais do R por meio da publicação "Introdução à análise de dados espacialmente referenciados" do Elias Teixeira Krainski, nela existe uma etapa na qual é possível utilizar uma API do google.maps para fazer o georreferenciamento de endereços, ou seja, obter a latitude e longitude desses endereços o código é o que segue logo abaixo:
require(sp) ltipo <- c("av", "rua", NA) lnome <- c("Brasil", "joubert", "prefeitura municipal") enum <- c(3500, 100, NA)
fGetLatLonLog <- function(tipo, nome, num, mun, uf, pais) { end <- paste(tipo, nome, num, mun, uf, pais, sep="+") end <- gsub(" ", "+", end, fixed=TRUE) end <- gsub("NA", "", end, fixed=TRUE) end <- gsub("++", "+", end, fixed=TRUE) end <- paste('http://maps.google.com/maps/geo?q= ',end,'&output=csv&sensor=true_or_false&key=abcdefg',sep="") end <- sapply(end, readLines, warn=FALSE) end <- t(sapply(strsplit(end, ","), as.numeric)) colnames(end) <- c("Status", "Acuracia", "Latitude", "Longitude") rownames(end) <- 1:nrow(end) return(as.data.frame(end))}
ll=fGetLatLonLog(ltipo, lnome, enum, "Maringa", "PR", "BR") ll
Mas quando executo a função aparece o seguinte erro:
Error in file(con, "r") : cannot open the connection In addition: Warning message: In file(con, "r") : cannot open: HTTP status was '403 Forbidden'
Parece que o Google não permite realizar a conexão... Será que alguém sabe como me ajudar.
Hélder Santos *agrohelder@gmail.com <agrohelder@hotmail.com>*
_______________________________________________ R-br mailing list R-br@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.
-- Luís Gustavo Silva e Silva
_______________________________________________ R-br mailing list R-br@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.