Как добавить аблайн с функцией решетки xyplot?

Я пытаюсь построить две переменные :Eeff vs Neff, используя функцию xyplot пакета решетки. Я хотел бы знать, как добавить линию к этой диаграмме рассеяния (, которая является аблайновой функцией в обычной графической системе R ).

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