Boa tarde pessoal,<div><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 class="Apple-tab-span" style="white-space:pre">   </span>brks = round(brks,r)</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>dest.fig = tempfile(pattern="legenda",fileext=".png",tmpdir=getwd())</div>

<div><span class="Apple-tab-span" style="white-space:pre">      </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 class="Apple-tab-span" style="white-space:pre">  </span>CairoPNG(filename = dest.fig, width = 290, height = 290, bg="#FFFFFF00", pointsize = 10)</div>

<div><span class="Apple-tab-span" style="white-space:pre">              </span>par(bg="transparent", mar=c(0, 0, 0, 0))</div><div><span class="Apple-tab-span" style="white-space:pre">           </span>brks = round(brks,r)</div><div>

<span class="Apple-tab-span" style="white-space:pre">         </span>plot(1,1,col="white",axes=F,col.axis="white",xlab="",ylab="")</div><div><span class="Apple-tab-span" style="white-space:pre">                </span>aux1 = 2:(length(brks)-1)</div>

<div><span class="Apple-tab-span" style="white-space:pre">              </span>aux2 = expand.grid(aux1,aux1)</div><div><span class="Apple-tab-span" style="white-space:pre">                </span>d    = aux2[,1]-aux2[,2]</div><div><span class="Apple-tab-span" style="white-space:pre">             </span>aux3 = aux2[d==-1,]</div>

<div><span class="Apple-tab-span" style="white-space:pre">              </span>legend(</div><div><span class="Apple-tab-span" style="white-space:pre">                              </span>"center",</div><div><span class="Apple-tab-span" style="white-space:pre">                          </span>title = "Legenda",</div>

<div><span class="Apple-tab-span" style="white-space:pre">                              </span>c(paste("<",brks[2]), paste(brks[aux3[,1]],brks[aux3[,2]],sep="-"), paste(">",brks[(length(brks)-1)])),</div><div><span class="Apple-tab-span" style="white-space:pre">                          </span>fill=c(cols),</div>

<div><span class="Apple-tab-span" style="white-space:pre">                              </span>cex=1.3,</div><div><span class="Apple-tab-span" style="white-space:pre">                             </span>bg="#FFFFFF")</div><div><span class="Apple-tab-span" style="white-space:pre">      </span>dev.off()</div>

<div><span class="Apple-tab-span" style="white-space:pre">      </span></div><div><span class="Apple-tab-span" style="white-space:pre">     </span>return (dest.fig)</div><div>}</div><div><br></div>-- <br>Luís Gustavo Silva e Silva<br>

<br>
</div>