[R-br] Mapa temático com sobreposição de cores

[Flávio Fagundes]

Caros(as), boa tarde.
Sou novo na lista, sou usuário bem básico do R, estou começando a trabalhar
com a confecção de mapas e gostaria de pedir uma ajuda.

Criei um mapa temático, com 5 cores diferentes plotei normalmente as cores
de acordo com uma faixa de valores. Porém, eu gostaria de plotar sobre cada
área sombreada uma segunda camada de cores com tons mais claros e
proporcionais ao tamanho da área.

Por exemplo:
Em uma determinada UF, o mapa temático dos municípios reflete o percentual
de domicílios que possuem energia elétrica (foram criadas 5 faixas
percentuais).
Eu gostaria de plotar, nestes mesmos municípios o percentual de geladeiras
existentes nos domicílios (premissa: nenhum município terá % de geladeiras
maior que % existência do energia elétrica).
Dessa forma, se nos municípios a cor correspondente ao percentual +80% de
existência de energia elétrica for azul escura, eu gostaria de plotar,
nestes mesmos municípios, a cor azul clara, sobreposta a cor azul escura,
mas de tal forma que esta cor azul clara fosse proporcional ao %
correspondente a existência de geladeira.
Se houver tb 80% de domicílios com geladeira, toda a área ficaria coberta,
se fosse 50% de domicílios com geladeiras, apenas metade da área desses
municípios ficaria coberta com a cor azul clara, e assim sucessivamente
paras outras cores (tipo: vermelho, verde, amarelo, roxo, e etc.....

Peço, por favor, ajuda de referências, dicas, exemplos e etc

PS: Para fazer um mapa teste, utilizei o material do prof. Elias Teixeira
Krainski (Introdução A Analise De Dados Espacialmente Referenciados),
que por sinal excelente didática e exposição.
Como principiante foi ótimo. Parabéns ao autor!!.

O primeiro mapa temático com as primeiras cores, deu certo com os comandos:

cores5 <- rgb(1:5/7, 5:1/7, 0.1)
labelfun <- function(brea) {
 k <- length(brea)
 paste(c("<", brea[2:(k-2)], ">"),
 c("", rep("a", k-3), ""), brea[c(2:(k-1),k-1)])
                            }
 plot(munic, col=cores5[cl5])
 legend('topleft', labelfun(br), fill=cores5, bty='n')


Obrigado
Att
Flávio
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20140821/e1e367a3/attachment.html>