Jak dodać abline z funkcją kraty xyplot?

Question

Próbuję wykreślić dwie zmienne: Eeff vs Neff przy użyciu funkcji xyplot pakietu kratowego. Chciałbym wiedzieć, jak dodać linię do tego wykresu rozproszenia (co jest funkcją abline w normalnym systemie graficznym R).

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

Answer 1

Pakiet lattice ma kilka funkcji „panel”, z których jedna jest panel.abline.

Spróbuj i zobacz, czy daje ci to, czego szukasz:

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