Настроить ReporteRs для получения графиков в градациях серого

Question

Есть ли удобный способ получения графиков в оттенках серого с помощью ReportR? trellis.device(color=FALSE) кажется, не работает здесь

library(ReporteRs)
library(lattice)

trellis.device(color=FALSE) # set grayscale

p <- xyplot(decrease ~ treatment, OrchardSprays, groups = rowpos,
            auto.key =list(space = "right"))

print(p) # ok, grayscale

doc = pptx("Test")
doc = addSlide(doc, "Title and Content")
doc = addPlot(doc, fun = print, x = p)  # not ok, colored
writeDoc(doc, "test.pptx")

Вот

вместо

Answer 1

Это нормально при использовании trellis.par.set. Увидеть ниже:

library(ReporteRs)
library(lattice)

p <- xyplot(decrease ~ treatment, OrchardSprays, groups = rowpos,
            auto.key =list(space = "right"))

ltheme <- standard.theme(color = FALSE) 

doc = pptx("Test")
doc = addSlide(doc, "Title and Content")
doc = addPlot(doc, fun = {
  trellis.par.set(ltheme)
  print(p)
}) 
writeDoc(doc, "test.pptx")