[R-br] windows.options() - Linux

[Mauro Sznelwar]

Tentei rodar o script mas dá mensagem que não existe a função brewer.pal

  Boa tarde pessoal,


  Estou com a seguinte dúvida: 
  qual o comando que é similar ao windows.options() no Linux, pois este não existe para o Linux.


  O objetivo final é criar uma função que me gera a figura da legenda, porém esta função tem rodar
  tanto no Windows quanto no Linux. Pois gostaria que a figura da legenda se ajuste para os mais
  variados números de faixas.


  Abaixo segue um exemplo. (Acredito que função não a mais eficiente, qualquer sugestão é bem-vinda)


  Obrigado.


  brks <- c(0,5,10,15,20)
  r <- 3
  cols <- brewer.pal(4,"Blues")
  gera_figura_legenda=function(brks, cols,r)  


  gera_figura_legenda=function(brks, cols,r) {
  brks = round(brks,r)
  dest.fig = tempfile(pattern="legenda",fileext=".png",tmpdir=getwd())
  windows.options(width=2.5, height=1.7, pointsize=12, reset = TRUE)
  CairoPNG(filename = dest.fig, width = 290, height = 290, bg="#FFFFFF00", pointsize = 10)
  par(bg="transparent", mar=c(0, 0, 0, 0))
  brks = round(brks,r)
  plot(1,1,col="white",axes=F,col.axis="white",xlab="",ylab="")
  aux1 = 2:(length(brks)-1)
  aux2 = expand.grid(aux1,aux1)
  d    = aux2[,1]-aux2[,2]
  aux3 = aux2[d==-1,]
  legend(
  "center",
  title = "Legenda",
  c(paste("<",brks[2]), paste(brks[aux3[,1]],brks[aux3[,2]],sep="-"), paste(">",brks[(length(brks)-1)])),
  fill=c(cols),
  cex=1.3,
  bg="#FFFFFF")
  dev.off()
  return (dest.fig)
  }


  -- 
  Luís Gustavo Silva e Silva



  .
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20120427/c620a514/attachment.html>