2

Sの統計モデルで与えられた例を複製しようとしています。これが本に書かれているコードです。

data(ethanol)
attach(ethanol)
E.intervals <- co.intervals(E, number = 9, overlap = 1/4)
coplot(NOx ~ C | E, given.values = E.intervals,
                    panel = function(x,y) panel.smooth(x,y,degree = 1, span = 1))

関数には引数がないSため、このコードはでのみ機能します。だから私は使用しましたpanel.smoothdegree

coplot(NOx ~ C | E, given.values = E.intervals,
                    panel = function(x,y,...) panel.smooth(x,y, iter = 1, span = 1))

fromに似た機能があるlatticeのでグラフィックパッケージを使いたいのですが、に似た機能が見つかりませんでした。そうだと思います。もしそうなら、あなたは私に同等のパラメータを提案できますか？panel.loesspanel.smoothScoplotxyplotgiven.values

4

1 に答える 1

1

これがどのように行われるかです。まったく同じではありませんが、非常に近いものです。

require(gridExtra)
require(lattice)
data(ethanol)
E.intervals <- equal.count(E, number = 9, overlap = 1/4)
plot1 <- plot(E.intervals)
plot2 <- xyplot(NOx ~ C | E.intervals, data = ethanol, span = 1, layout = c(3,3),
                panel = function(x,y,span){
                panel.xyplot(x, y);
                panel.loess(x, y, span);
               })
grid.arrange(plot1,plot2, nrow=2)

違いは上のプロットの高さです、それはもっと小さいはずです。

于 2012-06-17T19:07:30.143 に答える