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

[Luís Gustavo]

Muito obrigado a todos.

Em 28 de abril de 2012 10:26, Paulo Justiniano <paulojus em 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 em 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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20120507/23283e9b/attachment.html>