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

Question

我想用线条绘制 xyplot。作为一个例子，我使用了 iris 数据，我知道实际的情节并没有真正的意义:)

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