[R-br] [Dúvida] Pintar polygono de Mapa

[Paulo J Ribeiro Jr]

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
> R-br em listas.c3sl.ufpr.br
> 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