R-package Lattice: grouper par couleur ne fonctionne pas lors de l'utilisation de l'argument de panneau

Question

Je voudrais tracer un xyplot avec des lignes. À titre d'exemple j'utilise les données de l'iris et je sais que l'intrigue réelle n'a pas vraiment de sens :)

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) 

Cela me donne la figure suivante: Mais je veux réellement à colorer par groupe, comme si (mais avec des lignes ajoutées): Je ne peux y parvenir que lorsque je n'utilise pas l'argument du panneau ... Y at-il un moyen de contourner cela?

Merci beaucoup !!

Answer 1

Vous devez transmettre les groups et subscripts à la fonction panel.xyplot afin qu'il sait ce que les couleurs vont à chaque point comme ceci:

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