如何在 R 中制作 lattice xyplot() 灰度？

Question

什么是最简单的方法来制作这个图灰度（或者可能是黑白）而不是默认的多色：

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

我见过discussion of creating new graphics devices or changing options for all plots，但我是否可以在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)

比较：