¿Cómo agregar abline con la función xyplot de celosía?

Question

Estoy tratando de trazar dos variables: Eeff vs Neff utilizando la función xyplot del paquete de celosía. Me gustaría saber cómo agregar una línea a este diagrama de dispersión (que es la función de abline en el sistema gráfico R normal).

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

Answer 1

El paquete lattice tiene varios "funciones del panel", uno de los cuales es panel.abline.

probar esto y ver si se le da lo que está buscando:

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