R 平铺XYPlot，如何独立着色以模拟levelplot地图？

我正在尝试使用lattice软件包绘制几条线，以生成平铺图形。以下是一个示例（错误，请参见下文）：

我想模仿一下这个（在颜色模式方面）：

两个图都为同一变量“subset$speed1dt”着色。第一个是使用xyplot完成的，第二个是使用levelplot完成的

我的问题是，有曲线的那个并没有正确着色，可能是因为我问错了。我从另一个问题（重要的是，这是一个单一的数字）中学习了这个例子：

---

在我的例子中，我使用了两个因子（B和G），而这个例子没有。这可能意味着给定给xyplot的颜色应该遵循不同的顺序？有人知道怎么做吗？

所以，我没有注意到范围会不一样。很抱歉，问题解决了，我强制xyplot的颜色范围与levelplot相同，即[0,0.16]

---

谢谢

您可以删除问题。

dfrm <- data.frame( y=c(rnorm(10),rnorm(10)),
                x=1:10, 
                grp=rep(c("a","b"),each=10))

xyplot(y~x, group=grp, type="l", data=dfrm, col=c("red","blue"))

keys=unique(subset$speed1DaboveT)
theseCol= colF(length(keys))

pp= xyplot( freq~patch|B+G
        ,data=subset
        ,scales=list( x=list(cex=0.5), y=list(cex=0.5,lim=c(0,1.1)) )
        ,strip = FALSE
        ,t='l'
        ,group=speed1DaboveT
        ,col=theseCol
        ,lwd=2
        ,cex=0.5
        ,panel = function(x, y, col, ...) {                
                   panel.xyplot(x, y, col=col, ...) 
               }
        )