r - 如何使用 R 格子 xyplot 根据数值阈值对点进行着色

Question

我想根据 z 的值为每个面板中的点着色。
我目前拥有的代码无法区分每个面板的 z 值。
我意识到我需要一个面板功能，并且 panel.superpose 可能会有所帮助，但我迷路了。

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

xyplot(y ~ x |a,
   panel=function(x,y, ...) {
     panel.xyplot(x,y, pch=20, cex=0.3, col = ifelse(z < 5, "red", "black"))
   }
   )

正确的绘图在“两个”面板中只有顶部的两个点是红色的。

Answer 1

这应该是你想要的:

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)

为了阐明颜色的顺序， z < 5创建一个逻辑向量。自 order(c(TRUE,FALSE))看跌期权 FALSE之前 TRUE ，这决定了组颜色的顺序。因此， z<5 的所有值取第二种颜色和 z 的所有其他值取第一种颜色。