Daniel

2012/9/23 Jakson Alves de Aquino <jalvesaq@gmail.com>

2012/9/23 Daniel Marcelino <dmsilva.br@gmail.com>
> Caros, recorro novamente a ajuda de vocês.
> Gostaria utilizar a funcão geocode() para obter as cordenadas (lon, lat)
> de muitos endereços. Assim pensei em entrar com os dados de endereço e fazer
> com que o R dispare essa função para cada endereço da planilha. O problema é
> como fazer para que o resultado seja salvo em colunas respectivamente para
> cada enderço? Alguém consegue me dar uma dica?
>
> > geocode('AVENIDA BRIGADEIRO LUIS ANTONIO, 453')
> lon lat
> 1 -46.63866 -23.55436

Exemplo de como pode ser feito:

library(ggmap)

ender <- rbind(c("AVENIDA BRIGADEIRO LUIS ANTONIO, 453", "01317000",
"BELA VISTA", "SÃO PAULO", "SP"),
c("RUA DR. COSTA JÚNIOR, 509", "05002000",
"AGUA BRANCA", "SÃO PAULO", "SP"),
c("AV. DUQUE DE CAXIAS, 193", "01214100",
"SANTA IFIGENIA", "SÃO PAULO", "SP"),
c("RUA MADRE DE DEUS, 427", "03119000",
"MOOCA", "SÃO PAULO", "SP"),
c("RUA CLODOMIRO AMAZONAS, 41", "04537010",
"ITAIM BIBI", "SÃO PAULO", "SP"),
c("RUA LOEFGREEN, 2007", "04040033",
"VILA CLEMENTINO", "SÃO PAULO", "SP"),
c("AV. CELIDONIO NETO, N. 165", "17120000",
"CENTRO", "AGUDOS", "SP"),
c("RUA CAPITÃO MIRANDA 57", "13900030",
"CENTRO", "AMPARO", "SP"))
colnames(ender) <- c("endereco", "cep", "bairro", "municipio", "UF")

xy <- apply(ender, 1, function(x) geocode(paste0(x, collapse = ", ")))
coord <- do.call("rbind", xy)
ender2 <- cbind(ender, coord)

--
Jakson Alves de Aquino
Universidade Federal do Ceará
Departamento de Ciências Sociais
www.lepem.ufc.br/aquino.php
_______________________________________________
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.

--
--------------------------------------------------
View my research on these pages:
http://www.crcee.umontreal.ca
http://danielmarcelino.com
http://ssrn.com/author=1640522
--------------------------------------------------
My contacts:
Land Phone 1+514 343 6111 #3799
Skype: d.marcelino
3200 Jean Brillant, Office C5071
Montreal, QC; H3T 1N8
Canada
-----------------------------------------------------
"Small steps toward a much better world"