如何在xyplot中更改标题的颜色？

Question

我正在使用lattice包中的xyplot，在此我想要改变标题的颜色。当前，它是一种丑陋的浅橙色。

library(lattice)

x <- c(1:10, 1:10)
y <- c(10:1, 10:1)
z <- c(1:10, seq(1,20, by=2))
a = c(rep("one",10),rep("two",10))
DF <- data.frame(x, y, z, a)
xyplot(y ~ x | a, groups = z < 5, data = DF, col = c("black", "red"),
 pch=20, cex=0.3)

- Spurious

---

我非常喜欢lattice，但也不喜欢它的一些默认设置。幸运的是，它很容易提供自己的主题（即可以传递到par.settings=中的设置列表）。关于可能性的几个例子，请安装latticeExtra包，然后运行library(latticeExtra); example("custom.theme")。对于空间数据，rasterVis包提供了几个额外的主题。 - Josh O'Brien

Answer 1

你需要重新设置 trellis.par.get()$strip.background$col 的内容。

对于单个图，可以使用 par.settings= 参数来实现：

xyplot(y ~ x | a, groups = z < 5, data = DF, col = c("black", "red"),
       pch = 20, cex = 0.3, 
       par.settings = list(strip.background=list(col="lightgrey")))

要更持久地重置条带背景颜色，请使用trellis.par.set()：

trellis.par.set(strip.background=list(col="lightgrey"))

为了查看你可能如何自行发现这一点，请尝试以下操作：

names(trellis.par.get())
trellis.par.get("strip.background")

最后，如果您想看更复杂（外观令人震惊）的条纹背景操作示例，请点击这里。

- Josh O'Brien