Ответ 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)
Для сравнения:
Каков самый простой способ сделать этот сюжет полутоновой (или, возможно, черно-белый), а не цветной по умолчанию:
xyplot(y1 + y2 ~ x, mydata, auto.key=TRUE)
Я видел обсуждение создания новых графических устройств или изменение параметров для всех графиков, но есть ли опция, которую я могу включить, возможно, в функцию xyplot()
который преобразует сюжет в оттенки серого?
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)
Для сравнения: