r - 如何用晶格xyplot函数添加abline？

我正在尝试绘制两个变量:使用点阵封装的xyplot函数的Eeff vs Neff。我想知道如何向该散点图添加一条线(这是正常R图形系统中的绝对功能)。

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

最佳答案

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 (%)")

关于r - 如何用晶格xyplot函数添加abline？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/11949766/