O único problema é que preciso de 16 classes e o classInt só faz 14 classes. Existe alguma forma de contornar isto?<br><br><div class="gmail_quote">Em 16 de novembro de 2011 16:48, Paulo Justiniano [via R-br] <span dir="ltr"><<a href="mailto:ml-node%2Bs2285057n4077646h3@n4.nabble.com">ml-node+s2285057n4077646h3@n4.nabble.com</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
Rafael
<br><br>A deia é criar um vetor de cores que quer utilizar da mesma dimansao das
<br>suas unidades e passar isto para o argumento col
<br><br>Veja um exemplo simplificado usando dados do pacote spdep
<br><br>require(sp)
<br>require(spdep)
<br>require(classInt)
<br>require(RColorBrewer)
<br><br>## Carregando os dados (atributos e geometria de polygonos) disponíveis
<br>no pacote spdep
<br>## lendo dados tipo shapefiles
<br>auckland <- readShapePoly(system.file("etc/shapes/auckland.shp",
<br>package="spdep")[1])
<br><br>## calclando a variável que se quer represetnar pelas cores
<br>tx <- 1000*auckland$M77_85/(9*auckland$Und5_81)
<br><br>## dividindo dados em classes (usando pacote classInt)
<br>## veja ?classIntervals
<br>(txINT<- classIntervals(tx, n=7))
<br><br>## criando uma palheta de cores (usando pacote RColorBrewer) de azul
<br>para vermelho
<br>PAL <- c(rev(brewer.pal(3, "Blues")), brewer.pal(4, "Reds"))
<br><br>## atribuindo as cores adequadas a cada grupo
<br>cols <- findColours(txINT, PAL)
<br>plot(auckland, col=cols)
<br><br><br><br><br><br><br><br>Em Ter, 2011-11-15 às 15:21 -0300, Pedro Rafael escreveu:
<div><div><div class="h5"><br>> Pessoal plotei um arquivo shapfile de um mapa do Estado da Paraíba.
<br>> Esse mapa apresente 16 regiões e cada região eu quero pintar com uma
<br>> cor diferente (verde, azul, amarelo), corres não sequenciais. Estou
<br>> conseguindo pintar os poligonos de cada região em separado. Criei uma
<br>> variável no banco de dados (DBF) em que classifico o município enter 1
<br>> a 16. O comando abaixo eu consigo pintar de vermelho aqueles
<br>> municípios que tem a variável dados_regionais igual à 1 e de azul os
<br>> que tem a variável igual à 2.
<br>>
<br>> plot(mapa, col=ifelse(dados_regionais == 1, "red", "white"), axes =
<br>> "TRUE")
<br>> plot(mapa, col=ifelse(dados_regionais == 2, "blue", "white"), axes =
<br>> "TRUE")
<br>>
<br>> O problema é que a cada plot tenho um mapa diferente. Como destacar
<br>> esses municípios em um mesmo mapa?
<br>>
<br>> --
<br>> Saudações,
<br>> Pedro Rafael Diniz Marinho.
<br>> Estatístico - Secretaria de Estado da Saúde - PB.
<br>>
<br>>
<br>>
<br></div></div><div class="im">> _______________________________________________
<br>> R-br mailing list
<br>> <a href="http://user/SendEmail.jtp?type=node&node=4077646&i=0" rel="nofollow" link="external" target="_blank">[hidden email]</a>
<br>> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="nofollow" link="external" 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" rel="nofollow" link="external" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.
</div></div><br>--
<br>Paulo Justiniano Ribeiro Jr
<br>LEG (Laboratorio de Estatistica e Geoinformacao)
<br>Universidade Federal do Parana
<br>Caixa Postal 19.081
<br>CEP 81.531-990
<br>Curitiba, PR - Brasil
<br>Tel: <a href="tel:%28%2B55%29%2041%203361%203573" value="+554133613573" target="_blank">(+55) 41 3361 3573</a>
<br>VOIP: (+55) (41) (3361 3600) 1053 1066
<br>Fax: <a href="tel:%28%2B55%29%2041%203361%203141" value="+554133613141" target="_blank">(+55) 41 3361 3141</a>
<br>e-mail: paulojus AT ufpr br
<br><a href="http://www.leg.ufpr.br/%7Epaulojus" rel="nofollow" link="external" target="_blank">http://www.leg.ufpr.br/~paulojus</a><div class="im"><br><br><br>_______________________________________________
<br>R-br mailing list
<br><a href="http://user/SendEmail.jtp?type=node&node=4077646&i=1" rel="nofollow" link="external" target="_blank">[hidden email]</a>
<br><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="nofollow" link="external" 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" rel="nofollow" link="external" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.
<br>
<br>
<br>
<hr color="#cccccc" noshade size="1">
</div><div style="color:#444;font:12px tahoma,geneva,helvetica,arial,sans-serif"><div class="im">
<div style="font-weight:bold">If you reply to this email, your message will be added to the discussion below:</div>
</div><a href="http://r-br.2285057.n4.nabble.com/R-br-Duvida-Pintar-polygono-de-Mapa-tp4073543p4077646.html" target="_blank">http://r-br.2285057.n4.nabble.com/R-br-Duvida-Pintar-polygono-de-Mapa-tp4073543p4077646.html</a>
</div><div class="HOEnZb"><div class="h5">
<div style="color:#666;font:11px tahoma,geneva,helvetica,arial,sans-serif;margin-top:.4em;line-height:1.5em">
To unsubscribe from R-br, <a href="http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=unsubscribe_by_code&node=3357982&code=cGVkcm8ucmFmYWVsLm1hcmluaG9AZ21haWwuY29tfDMzNTc5ODJ8NTAyMjI0MDYw" target="_blank">click here</a>.<br>
<a href="http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=macro_viewer&id=instant_html%21nabble%3Aemail.naml&base=nabble.naml.namespaces.BasicNamespace-nabble.view.web.template.NabbleNamespace-nabble.view.web.template.InstantMailNamespace&breadcrumbs=instant+emails%21nabble%3Aemail.naml-instant_emails%21nabble%3Aemail.naml-send_instant_email%21nabble%3Aemail.naml" rel="nofollow" style="font:9px serif" target="_blank">NAML</a>
</div></div></div></blockquote></div><br><br clear="all"><br>-- <br><font color="#000099">Saudações,</font><div><font color="#000099">Pedro Rafael Diniz Marinho.</font></div><div><font color="#000099">Estatístico - Secretaria de Estado da Saúde - PB.</font></div>
<div><font color="#000099"><br></font></div><br>