<div dir="ltr">Caros(as), boa tarde.<div>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.</div><div><br></div><div>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.</div>
<div><br></div><div>Por exemplo: </div><div>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). </div><div>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).</div>
<div>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. </div>
<div>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.....</div>
<div><br></div><div>Peço, por favor, ajuda de referências, dicas, exemplos e etc</div><div><br></div><div>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.</div>
<div>Como principiante foi ótimo. Parabéns ao autor!!.</div><div><br></div><div>O primeiro mapa temático com as primeiras cores, deu certo com os comandos:</div><div><br></div><div><div>cores5 <- rgb(1:5/7, 5:1/7, 0.1)</div>
<div>labelfun <- function(brea) {</div><div> k <- length(brea)</div><div> paste(c("<", brea[2:(k-2)], ">"),</div><div> c("", rep("a", k-3), ""), brea[c(2:(k-1),k-1)])</div>
<div>                            }</div><div> plot(munic, col=cores5[cl5])<br></div><div> legend('topleft', labelfun(br), fill=cores5, bty='n')</div></div><div><br></div><div><br></div><div>Obrigado</div><div>
Att</div><div>Flávio</div><div><br></div></div>