Come aggiungere abline con funzione xyplot reticolo?

Question

Sto provando a tracciare due variabili: Eeff vs Neff usando la funzione xyplot del pacchetto reticolo. Mi piacerebbe sapere come aggiungere una linea a questo grafico a dispersione (che è una funzione ablina nel normale sistema grafico R).

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

Answer 1

Il pacchetto lattice ha diverse funzioni "pannelli", uno dei quali è panel.abline.

Provate questo e vedere se ti dà quello che stai cercando:

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