
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"