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

[Daniel Marcelino]

Muito bom Jackson, obrigado.

Daniel

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

> 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
> _______________________________________________
> R-br mailing list
> R-br em 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"
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20120923/067c229c/attachment.html>