격자에서`coplot`을 대체합니다

Question

에 주어진 예제를 복제하려합니다. S의 통계 모델. 이 책에있는 코드는 다음과 같습니다. panel.smooth 기능 degree 인수가 없기 때문에

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에서 작동합니다. 그래서 나는 그것을 S에서 panel.smooth 유사하다 panel.loess 기능을 가지고 있기 때문에 lattice 그래픽 패키지를 사용하고자하는

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

을 사용하지만, 나는 coplot 유사한 기능을 발견하지 않았습니다. 나는 그것이 xyplot라고 생각한다. 그렇다면 given.values에 해당하는 매개 변수를 제안 해주세요.

Answer 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) 

차이점은 위쪽 그림의 높이가 더 작아야합니다.