<div dir="ltr"><div>Caro João, boa noite!</div><div><br></div><div>Sem os dados pra rodar o código fica difícil, mas arrisco um palpite:</div><div><br></div><div>Não está completo. Tente acrescentar ou alterar no seu código...<br>
</div><div><br></div><div><font face="courier new, monospace">colors <-brewer.pal(9, "YlOrRd") ### a paleta com nove classes que você criou</font></div><div><font face="courier new, monospace">colors; display.brewer.pal(9, "YlOrRd")  ### visualizando a paleta</font></div>
<div><font face="courier new, monospace">colors[10]="#D3D3D3"  ### adiciona uma décima cor (cinza) na paleta (para os NA's)</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### não passe findInterval() diretamente, aloje em uma nova variável</font></div>
<div><font face="courier new, monospace">tmp <- findInterval(wld.aux$ValueMi, brks, all.inside=T) ### vai distribuir valores de 1:9 de acordo com seus 'brks' calculados</font></div><div><font face="courier new, monospace"><br>
</font></div><div><font face="courier new, monospace">### se você listar 'tmp' deverá ver a atribuição de cores (1:9) e NA's</font></div><div><font face="courier new, monospace">head(tmp); table(tmp)</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### troca os NA's por 10 (nova cor da paleta)</font></div><div><font face="courier new, monospace">tmp[which(<a href="http://is.na">is.na</a>(tmp))] = 10</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### muda o comando original usando 'tmp' no lugar de findInterval()</font></div><div><font face="courier new, monospace">plot(wld.aux, col=colors[tmp], axes=F, bg=NA, mai=c(0,2,2,20))<br>
</font></div><div class="gmail_extra"><div><br></div><div>Espero que ajude...</div><div><br></div>-- <br><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>
Dourados, MS - [22 16.5'S, 54 49'W]<br></div>
</div></div>