Comment ajouter abline avec la fonction xyplot de réseau?

Je suis en train de tracer les deux variables: Eeff vs Neff à l'aide de la fonction xyplot de treillis paquet. Je voudrais savoir comment faire pour ajouter une ligne à ce nuage de points (ce qui est abline fonction dans des conditions normales de R système graphique).

xyplot(Neff ~ Eeff, data = phuong,
       xlab = "Energy efficiency (%)", 
       ylab = "Nitrogen efficiency (%)")

source d'informationauteur hn.phuong

  1. 13

    La lattice paquet a plusieurs "fonctions du panneau de contrôle", dont l'un est panel.abline.

    Essayer cela et voir si elle vous donne ce que vous cherchez:

    xyplot(Neff ~ Eeff, data = phuong,
       panel = function(x, y) {
         panel.xyplot(x, y)
         panel.abline(lm(y ~ x))
       }, 
       xlab = "Energy efficiency (%)", 
       ylab = "Nitrogen efficiency (%)")