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