R-package Lattice : group by color doesn't work when using panel argument

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