Wie füge ich abline mit der xyplot-Gitterfunktion hinzu?

Question

Ich versuche, zwei Variablen zu plotten: Eeff vs Neff mit xyplot Funktion des Gitterpakets. Ich würde gerne wissen, wie man eine Linie zu diesem Streudiagramm hinzufügt (was eine Ableitfunktion in einem normalen R-Grafiksystem ist).

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

Answer 1

Das lattice Paket hat mehrere "Panel-Funktionen", von denen einer panel.abline ist.

Versuchen Sie dies und sehen, ob es Sie gibt, was Sie suchen:

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