windows.options() - Linux
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
On 04/26/2012 07:50 PM, Jakson Alves de Aquino wrote:
2012/4/26 Luís Gustavo<lgsilvaesilva@gmail.com>:
qual o comando que é similar ao windows.options() no Linux, pois este não existe para o Linux.
O equivalente no Linux é X11.options()
Alias que eu me lembre o X11.options() também funciona no windows... []s Tura
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 .
Mauro Quando voce vai rodar comandos de outros posts deve olhar o contexto da mensagem, as ferramentas sendo usadas. quando uma mensagem deste tipo acontece é porque voce precisa instalar/carregar algum pacote O R possui diversos mecanismos de procura (no comando ou na página) que voce pode usar para achar as funçÕes Se tivesse procurado iria encontrar que está é uma função do pacote RColorBrewer require(RColorBrewer) ?brewer.pal On Fri, 27 Apr 2012, Mauro Sznelwar wrote:
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
.
Muito obrigado a todos. Em 28 de abril de 2012 10:26, Paulo Justiniano <paulojus@leg.ufpr.br>escreveu:
Mauro
Quando voce vai rodar comandos de outros posts deve olhar o contexto da mensagem, as ferramentas sendo usadas.
quando uma mensagem deste tipo acontece é porque voce precisa instalar/carregar algum pacote
O R possui diversos mecanismos de procura (no comando ou na página) que voce pode usar para achar as funçÕes
Se tivesse procurado iria encontrar que está é uma função do pacote RColorBrewer
require(RColorBrewer) ?brewer.pal
On Fri, 27 Apr 2012, Mauro Sznelwar wrote:
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
.
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
-- Luís Gustavo Silva e Silva
participantes (5)
-
Bernardo Rangel Tura -
Jakson Alves de Aquino -
Luís Gustavo -
Mauro Sznelwar -
Paulo Justiniano