2012-02-16 5 views

risposta

14
library(lattice) 
bwtheme <- standard.theme("pdf", color=FALSE) 
mydata <- data.frame(y1=rnorm(10), y2=rnorm(10), x=1:10) 
xyplot(y1 + y2 ~ x, mydata, auto.key=TRUE, par.settings=bwtheme) 

Per fare un confronto:

comparison of color vs black/white