<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.6001.19222">
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT size=2></FONT><FONT color=#0000ff face=Arial>Tentei rodar o script
mas dá mensagem que não existe a função brewer.pal<BR></FONT></DIV>
<BLOCKQUOTE
style="BORDER-LEFT: #000000 2px solid; PADDING-LEFT: 5px; PADDING-RIGHT: 0px; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px">Boa
tarde pessoal,
<DIV><FONT size=2 face=Arial></FONT><BR></DIV>
<DIV>Estou com a seguinte dúvida: </DIV>
<DIV>qual o comando que é similar ao windows.options() no Linux, pois este não
existe para o Linux.</DIV>
<DIV><BR></DIV>
<DIV>O objetivo final é criar uma função que me gera a figura da legenda,
porém esta função tem rodar</DIV>
<DIV>tanto no Windows quanto no Linux. Pois gostaria que a figura da legenda
se ajuste para os mais</DIV>
<DIV>variados números de faixas.</DIV>
<DIV><BR></DIV>
<DIV>Abaixo segue um exemplo. (Acredito que função não a mais eficiente,
qualquer sugestão é bem-vinda)</DIV>
<DIV><BR></DIV>
<DIV>Obrigado.</DIV>
<DIV><BR></DIV>
<DIV>brks <- c(0,5,10,15,20)</DIV>
<DIV>r <- 3</DIV>
<DIV>cols <- brewer.pal(4,"Blues")</DIV>
<DIV>gera_figura_legenda=function(brks, cols,r) </DIV>
<DIV><BR></DIV>
<DIV>
<DIV>gera_figura_legenda=function(brks, cols,r) {</DIV>
<DIV><SPAN style="WHITE-SPACE: pre" class=Apple-tab-span></SPAN>brks =
round(brks,r)</DIV>
<DIV><SPAN style="WHITE-SPACE: pre" class=Apple-tab-span></SPAN>dest.fig =
tempfile(pattern="legenda",fileext=".png",tmpdir=getwd())</DIV>
<DIV><SPAN style="WHITE-SPACE: pre" class=Apple-tab-span></SPAN><SPAN
style="BACKGROUND-COLOR: rgb(255,0,0)">windows.options(width=2.5, height=1.7,
pointsize=12, reset = TRUE)</SPAN></DIV>
<DIV><SPAN style="WHITE-SPACE: pre"
class=Apple-tab-span></SPAN>CairoPNG(filename = dest.fig, width = 290, height
= 290, bg="#FFFFFF00", pointsize = 10)</DIV>
<DIV><SPAN style="WHITE-SPACE: pre"
class=Apple-tab-span></SPAN>par(bg="transparent", mar=c(0, 0, 0, 0))</DIV>
<DIV><SPAN style="WHITE-SPACE: pre" class=Apple-tab-span></SPAN>brks =
round(brks,r)</DIV>
<DIV><SPAN style="WHITE-SPACE: pre"
class=Apple-tab-span></SPAN>plot(1,1,col="white",axes=F,col.axis="white",xlab="",ylab="")</DIV>
<DIV><SPAN style="WHITE-SPACE: pre" class=Apple-tab-span></SPAN>aux1 =
2:(length(brks)-1)</DIV>
<DIV><SPAN style="WHITE-SPACE: pre" class=Apple-tab-span></SPAN>aux2 =
expand.grid(aux1,aux1)</DIV>
<DIV><SPAN style="WHITE-SPACE: pre" class=Apple-tab-span></SPAN>d
= aux2[,1]-aux2[,2]</DIV>
<DIV><SPAN style="WHITE-SPACE: pre" class=Apple-tab-span></SPAN>aux3 =
aux2[d==-1,]</DIV>
<DIV><SPAN style="WHITE-SPACE: pre" class=Apple-tab-span></SPAN>legend(</DIV>
<DIV><SPAN style="WHITE-SPACE: pre"
class=Apple-tab-span></SPAN>"center",</DIV>
<DIV><SPAN style="WHITE-SPACE: pre" class=Apple-tab-span></SPAN>title =
"Legenda",</DIV>
<DIV><SPAN style="WHITE-SPACE: pre"
class=Apple-tab-span></SPAN>c(paste("<",brks[2]),
paste(brks[aux3[,1]],brks[aux3[,2]],sep="-"),
paste(">",brks[(length(brks)-1)])),</DIV>
<DIV><SPAN style="WHITE-SPACE: pre"
class=Apple-tab-span></SPAN>fill=c(cols),</DIV>
<DIV><SPAN style="WHITE-SPACE: pre" class=Apple-tab-span></SPAN>cex=1.3,</DIV>
<DIV><SPAN style="WHITE-SPACE: pre"
class=Apple-tab-span></SPAN>bg="#FFFFFF")</DIV>
<DIV><SPAN style="WHITE-SPACE: pre"
class=Apple-tab-span></SPAN>dev.off()</DIV>
<DIV><SPAN style="WHITE-SPACE: pre" class=Apple-tab-span></SPAN></DIV>
<DIV><SPAN style="WHITE-SPACE: pre" class=Apple-tab-span></SPAN>return
(dest.fig)</DIV>
<DIV>}</DIV>
<DIV><BR></DIV>-- <BR>Luís Gustavo Silva e Silva<BR><BR></DIV>
<P></P>.</BLOCKQUOTE></BODY></HTML>