armazenar coordenadas geográfica a partir de endereços

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
Exemplos de planilhas com endereços Nr Cod Processual Endereço CEP Bairro Município Sede UF1 26-0001AVENIDA BRIGADEIRO LUIS ANTONIO, 453 01317000BELA VISTASÃO PAULO SP 226-0002 RUA DR. COSTA JÚNIOR, 50905002000 AGUA BRANCASÃO PAULO SP3 26-0003AV. DUQUE DE CAXIAS, 19301214100SANTA IFIGENIA SÃO PAULOSP 426-0004 RUA MADRE DE DEUS, 42703119000 MOOCASÃO PAULOSP 5 26-0005RUA CLODOMIRO AMAZONAS, 41 04537010ITAIM BIBISÃO PAULO SP 626-0006RUA LOEFGREEN, 2007 04040033 VILA CLEMENTINOSÃO PAULO SP7 26-0007AV. CELIDONIO NETO, N. 16517120000 CENTROAGUDOS SP 826-0008 RUA CAPITÃO MIRANDA 5713900030 CENTROAMPARO SP

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

Muito bom Jackson, obrigado. 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"
participantes (2)
-
Daniel Marcelino
-
Jakson Alves de Aquino