
O único problema é que preciso de 16 classes e o classInt só faz 14 classes. Existe alguma forma de contornar isto? Em 16 de novembro de 2011 16:48, Paulo Justiniano [via R-br] < ml-node+s2285057n4077646h3@n4.nabble.com> escreveu:
Rafael
A deia é criar um vetor de cores que quer utilizar da mesma dimansao das suas unidades e passar isto para o argumento col
Veja um exemplo simplificado usando dados do pacote spdep
require(sp) require(spdep) require(classInt) require(RColorBrewer)
## Carregando os dados (atributos e geometria de polygonos) disponíveis no pacote spdep ## lendo dados tipo shapefiles auckland <- readShapePoly(system.file("etc/shapes/auckland.shp", package="spdep")[1])
## calclando a variável que se quer represetnar pelas cores tx <- 1000*auckland$M77_85/(9*auckland$Und5_81)
## dividindo dados em classes (usando pacote classInt) ## veja ?classIntervals (txINT<- classIntervals(tx, n=7))
## criando uma palheta de cores (usando pacote RColorBrewer) de azul para vermelho PAL <- c(rev(brewer.pal(3, "Blues")), brewer.pal(4, "Reds"))
## atribuindo as cores adequadas a cada grupo cols <- findColours(txINT, PAL) plot(auckland, col=cols)
Em Ter, 2011-11-15 às 15:21 -0300, Pedro Rafael escreveu:
Pessoal plotei um arquivo shapfile de um mapa do Estado da Paraíba. Esse mapa apresente 16 regiões e cada região eu quero pintar com uma cor diferente (verde, azul, amarelo), corres não sequenciais. Estou conseguindo pintar os poligonos de cada região em separado. Criei uma variável no banco de dados (DBF) em que classifico o município enter 1 a 16. O comando abaixo eu consigo pintar de vermelho aqueles municípios que tem a variável dados_regionais igual à 1 e de azul os que tem a variável igual à 2.
plot(mapa, col=ifelse(dados_regionais == 1, "red", "white"), axes = "TRUE") plot(mapa, col=ifelse(dados_regionais == 2, "blue", "white"), axes = "TRUE")
O problema é que a cada plot tenho um mapa diferente. Como destacar esses municípios em um mesmo mapa?
-- Saudações, Pedro Rafael Diniz Marinho. Estatístico - Secretaria de Estado da Saúde - PB.
_______________________________________________ R-br mailing list [hidden email] <http://user/SendEmail.jtp?type=node&node=4077646&i=0> 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.
-- Paulo Justiniano Ribeiro Jr LEG (Laboratorio de Estatistica e Geoinformacao) Universidade Federal do Parana Caixa Postal 19.081 CEP 81.531-990 Curitiba, PR - Brasil Tel: (+55) 41 3361 3573 VOIP: (+55) (41) (3361 3600) 1053 1066 Fax: (+55) 41 3361 3141 e-mail: paulojus AT ufpr br http://www.leg.ufpr.br/~paulojus
_______________________________________________ R-br mailing list [hidden email] <http://user/SendEmail.jtp?type=node&node=4077646&i=1> 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.
------------------------------ If you reply to this email, your message will be added to the discussion below:
http://r-br.2285057.n4.nabble.com/R-br-Duvida-Pintar-polygono-de-Mapa-tp4073... To unsubscribe from R-br, click here<http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=unsubscribe_by_code&node=3357982&code=cGVkcm8ucmFmYWVsLm1hcmluaG9AZ21haWwuY29tfDMzNTc5ODJ8NTAyMjI0MDYw> . NAML<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>
-- Saudações, Pedro Rafael Diniz Marinho. Estatístico - Secretaria de Estado da Saúde - PB.