Rで格子状のxyplot（）グレースケールを作るには？

Question

は（またはおそらく黒と白）だけで、このプロットのグレースケールを作るための最も簡単な方法ではなく、デフォルトのマルチカラーは何か：私はdiscussion of creating new graphics devices or changing options for all plotsを見てきました

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

が、私は含めることができるオプションがありますおそらく、xyplot()関数自体がプロットをグレースケールに変換するでしょうか？比較のために

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) 

：