如何使用晶格xyplot函數添加abline？

Question

我正在嘗試繪制兩個變量：使用點陣封裝的xyplot函數的Eeff vs Neff。 我想知道如何在此散點圖上添加一條線（這是正常R圖形系統中的絕對功能）。

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