<div dir="ltr">Ola Mauro,<div><br></div><div>Estou em fase de projeto. Portanto os dados ainda serão coletados.</div><div><br></div><div>Luiz Roberto</div></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature"><div dir="ltr"><div><div>Luiz Roberto Martins Pinto<br>Prof. Pleno/DCET/UESC</div><div>Laboratório de Estatística Computacional</div><div>Universidade Estadual de Santa Cruz</div><div>Ilhéus-Bahia-Brasil<br><br><a href="mailto:luizroberto.uesc@gmail.com" target="_blank">luizroberto.uesc@gmail.com</a><br>skype: lrmpinto</div>
<div><a href="http://lattes.cnpq.br/2732314327604831" target="_blank">http://lattes.cnpq.br/2732314327604831</a> <br><br><br></div></div></div></div></div>
<br><div class="gmail_quote">Em 6 de junho de 2015 02:26, Mauro Sznelwar <span dir="ltr"><<a href="mailto:sznelwar@uol.com.br" target="_blank">sznelwar@uol.com.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Tem o arquivo para rodar?<br>
<div><div class="h5"><br>
<br>
<br>
<br>
Que exemplo bacana!<br>
Muito obrigado por ter tido o trabalho de fazer e compartilhar!<br>
<br>
> Em 03/06/2015, à(s) 23:09, salah <<a href="mailto:salah3.1416@gmail.com">salah3.1416@gmail.com</a>> escreveu:<br>
><br>
> Olá, Segue uma sugestão<br>
><br>
> library(sp)<br>
> library(maptools)<br>
> library(rgdal)<br>
> library(maps)<br>
> library(ggplot2)<br>
><br>
> ##setwd('endereço de trabalho que receberá os arquivos')<br>
><br>
> ## site do shapefile - neste site você pode baixar de todos os estados<br>
> url0  = '<a href="ftp://geoftp.ibge.gov.br/malhas_digitais/municipio_2010/ba.zip" target="_blank">ftp://geoftp.ibge.gov.br/malhas_digitais/municipio_2010/ba.zip</a>'<br>
><br>
> ## faz o download do shapefile<br>
> if (!file.exists(basename(url0))) download.file(url0,<br>
> dest=basename(url0), mode = "wb")<br>
> unzip(basename(url0), list = T) ## mostra o conteúdo do zip<br>
> unzip(basename(url0)) ## extrai os arquivos<br>
><br>
><br>
##--------------------------------------------------------------------------<br>
----------<br>
> ##                                LENDO O SHAPEFILE<br>
><br>
##--------------------------------------------------------------------------<br>
----------<br>
> ## carrega o estado do nordeste com todos os municípios<br>
> nordeste = readOGR(dsn = 'endereço do shape/29MUE250GC_SIR.shp', layer =<br>
> '29MUE250GC_SIR', encoding = "latin1")<br>
><br>
> ## os municípios estão na coluna 3<br>
> str(nordeste@data)<br>
> ##Nome dos municípios<br>
> nordeste@data$NM_MUNICIP<br>
><br>
> ## separando Itabuna<br>
> itabuna = nordeste[nordeste@data[, 3] %in% 'ITABUNA', ]<br>
><br>
> ##------------------------------------------------------<br>
> ##        usando o gráfico básico do R<br>
> ##------------------------------------------------------<br>
> plot(itabuna, axes=TRUE)<br>
> points(-39.3, -14.9, pch=19, cex=2, col='red')<br>
> points(-39.4, -15, pch=19, cex=5, col='red')<br>
> points(-39.35, -14.8, pch=19, cex=1, col='blue')<br>
> ## acrescenta a escala<br>
> map.scale(-39.27, -15, ratio = FALSE, metric = TRUE, cex = 0.8)<br>
><br>
> ##------------------------------------------------------<br>
> ##        usando o ggplot2<br>
> ##------------------------------------------------------<br>
><br>
> ## dataframe com as coordenadas e quantidade de infectados<br>
> dengue = data.frame(long = c(-39.3, -39.4, -39.35), lat=c(-14.9, -15,<br>
> -14.8), Infectados=c(30, 12, 2))<br>
> dengue<br>
><br>
> ## gráfico<br>
> ggplot(itabuna, aes(long, lat, group = group)) +<br>
>               geom_polygon(fill = "white") + ## cor do mapa<br>
>               geom_path(col = "#7f7f7f", size = 0.25) + ## cor e espessura<br>
da borda<br>
> do mapa<br>
>               ## plota os pontos do dataframe dengue<br>
>               geom_point(data = dengue, aes(x = long, y = lat,<br>
group=Infectados,<br>
> size=Infectados), col='red', alpha=0.7) +<br>
>               ggtitle('Dengue - Itabuna')<br>
><br>
> Em Qua, 2015-06-03 às 21:44 -0300, David Feitosa escreveu:<br>
>> Oi Luiz,<br>
>><br>
>><br>
>> Também iniciei um projeto com mapas e R há pouco tempo.<br>
>> Estou usando ggmap como biblioteca de interface para o Google Maps.<br>
>> Ele trabalha com o ggplot2, dai você precisa ver que tipo de mapa você<br>
>> quer gerar.<br>
>> No meu caso é um de densidade.<br>
>> Eu gero o mapa em cinza e ploto a densidade de acordo com as<br>
>> ocorrências de uma determinada variável<br>
>> em uma localidade.<br>
>><br>
>><br>
>> Se o seu caso for similar, podes tentar ver neste link:<br>
>><br>
<a href="http://rstudio-pubs-static.s3.amazonaws.com/7025_33556c639122442d9eb74e56457
a17dc.html" target="_blank">http://rstudio-pubs-static.s3.amazonaws.com/7025_33556c639122442d9eb74e56457<br>
a17dc.html</a><br>
>><br>
>><br>
>><br>
>> E, como eu gero uma animação a partir de vários gráficos, o pacote<br>
>> animation .<br>
>> Eu gero mapas no tempo e uso este pacote para gerar uma animação que<br>
>> dá ideia da evolução<br>
>> quando o tempo passa.<br>
>><br>
>><br>
>><br>
>><br>
>><br>
>> Atenciosamente,<br>
>><br>
>><br>
>> David F.<br>
>><br>
>> Em 1 de junho de 2015 22:35, Luiz Roberto Martins Pinto<br>
>> <<a href="mailto:luizroberto.uesc@gmail.com">luizroberto.uesc@gmail.com</a>> escreveu:<br>
>>        Caros,<br>
>><br>
>><br>
>>        Itabuna-BA é um dos municípios brasileiros com maior<br>
>>        incidência de dengue. Eu desejo elaborar, periodicamente,<br>
>>        mapas de ocorrência de dengue, para avaliar a sua evolução.<br>
>><br>
>><br>
>>        Alguém da lista pode me auxiliar?<br>
>><br>
>><br>
>>        Luiz Roberto.<br>
>><br>
>><br>
>><br>
>>        Luiz Roberto Martins Pinto<br>
>>        Prof. Pleno/DCET/UESC<br>
>>        Laboratório de Estatística Computacional<br>
>>        Universidade Estadual de Santa Cruz<br>
>>        Ilhéus-Bahia-Brasil<br>
>><br>
>>        <a href="mailto:luizroberto.uesc@gmail.com">luizroberto.uesc@gmail.com</a><br>
>>        skype: lrmpinto<br>
>>        <a href="http://lattes.cnpq.br/2732314327604831" target="_blank">http://lattes.cnpq.br/2732314327604831</a><br>
>><br>
>><br>
>><br>
>><br>
<br>
<br>
</div></div>---<br>
Este email foi escaneado pelo Avast antivírus.<br>
<a href="https://www.avast.com/antivirus" target="_blank">https://www.avast.com/antivirus</a><br>
<div class="HOEnZb"><div class="h5"><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>
</div></div></blockquote></div><br></div>