# Lattice parameters by Anthony Darrouzet-Nardi # To activate these parameters in R: # source("http://anthony.darrouzet-nardi.net/works/adnlattice.R") require(lattice) #if(dev.cur() == 1) get(getOption("device"))() trellis.par.set(background = list(col = "white"), bar.fill = list(col = "#cccccc"), box.rectangle = list(col = "black"), box.umbrella = list(col = "black", lty=1, lwd=.5), dot.line = list(col = "#e8e8e8", lty=1), dot.symbol = list(col = "black"), plot.line = list(col = "black"), plot.symbol = list(col = "black"), regions = list(col = gray(seq(length=100, from=.2, to=1))), strip.shingle = list(col = c("blue", "gold", "#ff0000", "#0080ff", "#ffff00", "#00ff00", "#ff00ff")), strip.background = list(col = c("white", "white", "#ffcccc", "#cce6ff", "#ffffcc", "#ccffcc", "#ffccff")), reference.line = list(col = "#e8e8e8"), superpose.line = list(col = c("black", "red", "#0000CC", "#FFCD00", "#009900", "#650099"), lty = 1), superpose.symbol = list(pch = 16, cex = 1, col = c("black", "red", "#0000CC", "#FFCD00", "#009900", "black")))