R-package Lattice：使用面板参数时，按颜色分组不起作用

Question

我想用线条绘制一个xyplot。作为一个例子，我使用虹膜数据，我知道实际的情节并没有多大意义：）

library(lattice)

panel.iris <- function(x,y){
    panel.xyplot(x,y)
    panel.lines(x,y)
    }

xyplot(Sepal.Length ~ Sepal.Width| Petal.Width, data = iris, groups= Species, 
auto.key=list(space="right"), panel=panel.iris)

这给了我下图： 但我实际上希望它被群体着色，就像这样（但添加了一行）： 当我没有使用面板参数时，我才能做到这一点......有没有办法解决这个问题？

非常感谢!!

Answer 1

您需要将groups和subscripts传递给panel.xyplot函数，以便它知道每个点的颜色是这样的：

panel.iris <- function(x,y,groups,subscripts){
  panel.xyplot(x,y,groups=groups, subscripts=subscripts)
  panel.lines (x,y)
}