##----------------------------------------------------------------------------- ## Configurações de cores da lattice. ## names(trellis.par.get()) ## display.brewer.all() colp <- brewer.pal(11, "Spectral") colp <- colorRampPalette(colp, space="rgb") ## colp(100) ## mycol <- c("#2E8B57","#551A8B","#FF4500","#00688B","#B22222") mycol <- brewer.pal(8, "Dark2") ps <- list( box.dot=list(col="black", pch="|"), box.rectangle=list(col="black", fill=c("gray70")), box.umbrella=list(col="black", lty=1), dot.symbol=list(col="black"), dot.line=list(col="black", lty=3), plot.symbol=list(col="black", cex=0.8), plot.line=list(col="black", lty=1.2), plot.polygon=list(col="gray80"), superpose.line=list(col=mycol), superpose.symbol=list(col=mycol), superpose.polygon=list(col=mycol), regions=list(col=colp(100)), strip.background=list(col=c("gray90","gray50")), strip.shingle=list(col=c("gray50","gray90")) ) ## require(lattice) ## require(latticeExtra) ## show.settings() ## show.settings(ps) trellis.par.set(ps) rm(list=c("colp", "mycol", "ps")) ##-----------------------------------------------------------------------------