如何使用格子xyplot函数添加abline？

Question

我试图绘制两个变量:Eeff vs Neff使用格子包的xyplot函数.我想知道如何在这个散点图中添加一条线(这是普通R图形系统中的abline函数).

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

Answer 1

该lattice软件包有几个"面板功能",其中一个是panel.abline.

试试这个,看看它是否能满足您的需求:

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