<div dir="ltr"><div>Edson, boa tarde!</div><div><br></div><div>Acredito que você deveria usar um "mapa de zonas" no lugar do "mapa de BAIRROS". </div><div><br></div><div>No link que segue estão os arquivos (shapefile)  para uso no script (ao final):</div>
<div><a href="http://dl.dropbox.com/s/5dpo1ad1oez2752/manausZon.zip">http://dl.dropbox.com/s/5dpo1ad1oez2752/manausZon.zip</a><br></div><div><br></div><div><br></div><img src="http://dl.dropbox.com/s/t0fcp0ezl3g6ajf/mapa_manaus1.png" width="471.99999999999994" height="471.99999999999994"><br>
<div class="gmail_extra"><span style="font-family:'courier new',monospace">### <code r></span><br></div><div class="gmail_extra"><div><font face="courier new, monospace"># rm(list=ls())</font></div><div><font face="courier new, monospace">library(maptools)</font></div>
<div><font face="courier new, monospace">setwd(choose.dir());getwd() ### defina o diretório de trabalho</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">mapZonas <- readShapePoly("manausZon.shp")</font></div>
<div><font face="courier new, monospace">mapZonas@data</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">{plot(mapZonas, col=heat.colors(8), axes=T)</font></div>
<div><font face="courier new, monospace">with(mapZonas@data, text(X1, X2, ZONAS, cex=.5))</font></div><div><font face="courier new, monospace">title("Manaus - Zonas")}</font></div><div><font face="courier new, monospace"><br>
</font></div><div><font face="courier new, monospace">apAll  <- read.csv2("doa_apto_00_12.csv"); names(apAll)</font></div><div><font face="courier new, monospace">ap2011 <- subset(apAll, TRUE, select = c("ZONAS", "ano2011")); ap2011</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">dados  <- merge(mapZonas@data, ap2011)</font></div><div><font face="courier new, monospace">mapZonas@data <- dados</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">quant  <- quantile(dados$ano2011, include.lowest=TRUE); quant</font></div><div><font face="courier new, monospace">breaks <- c(floor(quant[-length(quant)]/10), ceiling(quant[length(quant)]/10))*10; breaks</font></div>
<div><font face="courier new, monospace">dcut   <- cut(dados$ano2011, breaks, right=F, dig.lab=4); dcut</font></div><div><font face="courier new, monospace">levels(dcut)</font></div><div><font face="courier new, monospace"><br>
</font></div><div><font face="courier new, monospace">cores <- c("#779999", "#99BBBB", "#BBDDDD", "#DDFFFF") ### cores <- palette()</font></div><div><font face="courier new, monospace"># cores <- rev(heat.colors(4))</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace"># x11()</font></div><div><font face="courier new, monospace">plot(mapZonas, axes=T, col=cores[dcut])</font></div><div><font face="courier new, monospace">legend(legend=levels(dcut), "topright", bty="n", fill=cores, cex=.8)</font></div>
<div><font face="courier new, monospace">title("Doações aptas em Manaus por zona \n 2011")</font></div><div><font face="courier new, monospace"># with(mapZonas@data, text(X1, X2, ZONAS, cex=.5)) text(X1, X2, ZONAS, cex=.5))</font></div>
<div><font face="courier new, monospace">tmp <- with(mapZonas@data, paste(ZONAS, '\n', ano2011))</font></div><div><font face="courier new, monospace">with(mapZonas@data, text(X1, X2, tmp, cex=.5))</font></div><div>
<font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### </code></font></div></div><div class="gmail_extra"><br></div><div class="gmail_extra"><br></div><div class="gmail_extra">
<br clear="all"><div><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>Dourados, MS - [22 16.5'S, 54 49'W]<br>
</div></div>
<br><br></div><div class="gmail_extra"><br></div><div class="gmail_extra"><br></div></div>