[R-br] armazenar coordenadas geográfica a partir de endereços

[Jakson Alves de Aquino]

2012/9/23 Daniel Marcelino <dmsilva.br em 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