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