Muito bom Jackson, obrigado.<div><br><div>Daniel<br><br><div class="gmail_quote">2012/9/23 Jakson Alves de Aquino <span dir="ltr"><<a href="mailto:jalvesaq@gmail.com" target="_blank">jalvesaq@gmail.com</a>></span><br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div class="im">2012/9/23 Daniel Marcelino <<a href="mailto:dmsilva.br@gmail.com">dmsilva.br@gmail.com</a>><br>
> Caros, recorro novamente a ajuda de vocês.<br>
> Gostaria utilizar a funcão geocode() para obter as cordenadas (lon, lat)<br>
> de muitos endereços. Assim pensei em entrar com os dados de endereço e fazer<br>
> com que o R dispare essa função para cada endereço da planilha. O problema é<br>
> como fazer para que o resultado seja salvo em colunas respectivamente para<br>
> cada enderço? Alguém consegue me dar uma dica?<br>
><br>
> > geocode('AVENIDA BRIGADEIRO LUIS ANTONIO, 453')<br>
>         lon       lat<br>
> 1 -46.63866 -23.55436<br>
<br>
</div>Exemplo de como pode ser feito:<br>
<br>
library(ggmap)<br>
<br>
ender <- rbind(c("AVENIDA BRIGADEIRO LUIS ANTONIO, 453", "01317000",<br>
                 "BELA VISTA", "SÃO PAULO", "SP"),<br>
               c("RUA DR. COSTA JÚNIOR, 509", "05002000",<br>
                 "AGUA BRANCA", "SÃO PAULO", "SP"),<br>
               c("AV. DUQUE DE CAXIAS, 193", "01214100",<br>
                 "SANTA IFIGENIA", "SÃO PAULO", "SP"),<br>
               c("RUA MADRE DE DEUS, 427", "03119000",<br>
                 "MOOCA", "SÃO PAULO", "SP"),<br>
               c("RUA CLODOMIRO AMAZONAS, 41", "04537010",<br>
                 "ITAIM BIBI", "SÃO PAULO", "SP"),<br>
               c("RUA LOEFGREEN, 2007", "04040033",<br>
                 "VILA CLEMENTINO", "SÃO PAULO", "SP"),<br>
               c("AV. CELIDONIO NETO, N. 165", "17120000",<br>
                 "CENTRO", "AGUDOS", "SP"),<br>
               c("RUA CAPITÃO MIRANDA 57", "13900030",<br>
                 "CENTRO", "AMPARO", "SP"))<br>
colnames(ender) <- c("endereco", "cep", "bairro", "municipio", "UF")<br>
<br>
xy <- apply(ender, 1, function(x) geocode(paste0(x, collapse = ", ")))<br>
coord <- do.call("rbind", xy)<br>
ender2 <- cbind(ender, coord)<br>
<span class="HOEnZb"><font color="#888888"><br>
--<br>
Jakson Alves de Aquino<br>
Universidade Federal do Ceará<br>
Departamento de Ciências Sociais<br>
<a href="http://www.lepem.ufc.br/aquino.php" target="_blank">www.lepem.ufc.br/aquino.php</a><br>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</font></span></blockquote></div><br><br clear="all"><div><br></div>-- <br>-------------------------------------------------- <br>View my research on these pages: <br><a href="http://www.crcee.umontreal.ca" target="_blank">http://www.crcee.umontreal.ca</a><br>

<a href="http://danielmarcelino.com" target="_blank">http://danielmarcelino.com</a><br><a href="http://ssrn.com/author=1640522" target="_blank">http://ssrn.com/author=1640522</a><br>--------------------------------------------------<br>

My contacts:<br>Land Phone 1+514 343 6111 #3799<br>Skype: d.marcelino<br>3200 Jean Brillant,  Office C5071<br>Montreal, QC; H3T 1N8 <br>Canada<br>-----------------------------------------------------<br>"Small steps toward a much better world"<br>


</div></div>