Muito obrigado a todos.<br><br><div class="gmail_quote">Em 28 de abril de 2012 10:26, Paulo Justiniano <span dir="ltr"><<a href="mailto:paulojus@leg.ufpr.br" target="_blank">paulojus@leg.ufpr.br</a>></span> escreveu:<br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Mauro<br>
<br>
Quando voce vai rodar comandos de outros posts deve olhar o contexto da mensagem, as ferramentas  sendo usadas.<br>
<br>
quando uma mensagem deste tipo acontece é porque voce precisa instalar/carregar algum pacote<br>
<br>
O R possui diversos mecanismos de procura (no comando ou na página)<br>
que voce pode usar para achar as funçÕes<br>
<br>
Se tivesse procurado iria encontrar que está é uma função do pacote<br>
RColorBrewer<br>
<br>
require(RColorBrewer)<br>
?brewer.pal<div class="HOEnZb"><div class="h5"><br>
<br>
<br>
<br>
On Fri, 27 Apr 2012, Mauro Sznelwar wrote:<br>
<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Tentei rodar o script mas dá mensagem que não existe a função brewer.pal<br>
      Boa tarde pessoal,<br>
Estou com a seguinte dúvida: <br>
qual o comando que é similar ao windows.options() no Linux, pois este não existe para o Linux.<br>
<br>
O objetivo final é criar uma função que me gera a figura da legenda, porém esta função tem rodar<br>
tanto no Windows quanto no Linux. Pois gostaria que a figura da legenda se ajuste para os mais<br>
variados números de faixas.<br>
<br>
Abaixo segue um exemplo. (Acredito que função não a mais eficiente, qualquer sugestão é bem-vinda)<br>
<br>
Obrigado.<br>
<br>
brks <- c(0,5,10,15,20)<br>
r <- 3<br>
cols <- brewer.pal(4,"Blues")<br>
gera_figura_legenda=function(<u></u>brks, cols,r) <br>
<br>
gera_figura_legenda=function(<u></u>brks, cols,r) {<br>
brks = round(brks,r)<br>
dest.fig = tempfile(pattern="legenda",<u></u>fileext=".png",tmpdir=getwd())<br>
windows.options(width=2.5, height=1.7, pointsize=12, reset = TRUE)<br>
CairoPNG(filename = dest.fig, width = 290, height = 290, bg="#FFFFFF00", pointsize = 10)<br>
par(bg="transparent", mar=c(0, 0, 0, 0))<br>
brks = round(brks,r)<br>
plot(1,1,col="white",axes=F,<u></u>col.axis="white",xlab="",ylab=<u></u>"")<br>
aux1 = 2:(length(brks)-1)<br>
aux2 = expand.grid(aux1,aux1)<br>
d    = aux2[,1]-aux2[,2]<br>
aux3 = aux2[d==-1,]<br>
legend(<br>
"center",<br>
title = "Legenda",<br>
c(paste("<",brks[2]), paste(brks[aux3[,1]],brks[<u></u>aux3[,2]],sep="-"), paste(">",brks[(length(brks)-<u></u>1)])),<br>
fill=c(cols),<br>
cex=1.3,<br>
bg="#FFFFFF")<br>
dev.off()<br>
return (dest.fig)<br>
}<br>
<br>
--<br>
Luís Gustavo Silva e Silva<br>
<br>
.<br>
<br>
<br>
</blockquote>
</div></div><br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><div><br></div>-- <br>

Luís Gustavo Silva e Silva<br><br>