¿Cómo hacer enrejado xyplot() en escala de grises en R?

Question

¿Cuál es la forma más sencilla de hacer sólo esta escala de grises trama (o tal vez en blanco y negro) en lugar de la opción predeterminada de múltiples colores:

xyplot(y1 + y2 ~ x, mydata, auto.key=TRUE) 

que he visto discussion of creating new graphics devices or changing options for all plots, pero no es una opción que pueda incluir tal vez en la función xyplot() sí mismo que convertirá la trama a escala de grises?

Answer 1

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) 

Para la comparación: