R-Paket Gitter: Gruppe nach Farbe funktioniert nicht bei Verwendung von Panel-Argument

Question

Ich möchte ein xyplot mit Linien plotten. Als Beispiel verwende ich die Irisdaten und ich weiß, dass die eigentliche Handlung wirklich keinen Sinn macht :)

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) 

Das gibt mir die folgende Abbildung: Aber ich will es eigentlich von gefärbt sein Gruppe, so (aber mit zusätzlichen Zeilen): Ich kann dies nur erreichen, wenn ich nicht das Panel Argument verwende ... Gibt es einen Weg um dies zu erreichen?

Vielen Dank !!

Answer 1

Sie müssen sich auf die groups und subscripts an die panel.xyplot Funktion zu übergeben, damit sie wissen, welche Farben mit jedem Punkt gehen in etwa so:

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