tactile::bwplot2 中的控制图例颜色

Question

在下面这个带有触觉包的可重现示例中，颜色是自动为箱线图和相应的图例选择的。但是，我想自定义箱线图和图例的颜色。

tactile::bwplot2(runif(1000) ~ cut(runif(1000), c(0,0.3,0.6,1)) | as.factor(c(1,2,3)), 
             groups = sample(1:2, 1000, replace = TRUE), auto.key = TRUE)

但是，当我尝试这样做时，箱线图中的颜色发生了变化，但图例颜色没有：

这里我创建了一个新的配色方案：

coolNewPars <- list(superpose.symbol = list(pch = 21, cex = 2, col = "gray20",
                           fill = continentColors$color))

然后再次绘制箱线图，auto.key 指示将图例内容放入 2 列，par.settings 设置为 coolNewPars:

tactile::bwplot2(runif(1000) ~ cut(runif(1000), c(0,0.3,0.6,1)) | as.factor(c(1,2,3)), 
             groups = sample(1:2, 1000, replace = TRUE), auto.key = list(columns = 2),par.settings = coolNewPars)

如何强制图例颜色与 coolNewPars 颜色匹配？

Answer 1

问题是 lattice::panel.superpose() 使用 trellis.get.par("superpose.symbol") 来区分组，而绘制键的函数使用 "superpose.polygon" 或类似的东西。

无论如何，这里有一个解决方案（虽然很别扭）：

coolNewPars <- list(superpose.polygon = list(col = 2:3),
                    superpose.symbol = list(fill = 2:3))

tactile::bwplot2(runif(1000) ~ cut(runif(1000), c(0,0.3,0.6,1)) | as.factor(c(1,2,3)), 
                 groups = sample(1:2, 1000, replace = TRUE), 
                 auto.key = TRUE,
                 par.settings = coolNewPars)

tactile::bwplot2 中的控制图例颜色

Control legend colors in tactile::bwplot2

lattice

bwplot