R-package格子：使用面板参数时，按颜色不起作用

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