r - ラティスxyplot関数でablineを追加する方法は？

Question

ラティスパッケージのxyplot関数を使用してEeffとNeffの2つの変数をプロットしようとしています。この散布図（通常のRグラフィックシステムのアブライン関数）に線を追加する方法を知りたいです。

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

Answer 1

latticeパッケージにはいくつかの「パネル機能」があり、そのうちの1つはです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 (%)")