9

我正在使用 lattice 包中的 xyplot,我想更改 hte 标头的颜色。目前,它是一种难看的浅橙色。

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)
4

1 回答 1

16

您需要重置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")

最后,有关更复杂(并且在美学上令人震惊)的条形背景操作的示例,请参见此处

于 2013-04-09T17:25:41.403 回答