如何使用格子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 (%)")