R의 xyplot에 평균 라인을 추가하는 방법은 무엇입니까?

Question

안녕하세요

library(lattice) 
temp <- data.frame(c(1,1,1,1,1,1,2,2), 
     c(1,1,2,2,1,1,1,1), 
     c(1,1,1,2,1,2,1,2), 
     c(0,0,0,150,150,0,0,0), 
     c(3,10,4,15,14,2,4,5)) 
names(temp) <- c("instNo","NoOfAC","NoReleaseLevels","trExt","maxDelay") 

tempavg <- aggregate(temp[5], by=list(temp$NoOfAC,temp$NoReleaseLevels 
            ,temp$trExt),FUN = mean) 

names(tempavg) <- c("NoOfAC","NoReleaseLevels","trExt","meanDelay") 
xyplot(maxDelay ~ NoOfAC |trExt + NoReleaseLevels, 
      data = temp, 
      panel = function(x, y, tempavg) { 
       panel.xyplot(x, y) 
       panel.abline(tempavg$meanDelay ~ y |trExt + NoReleaseLevels) 
      }, 
xlab = "Number Of Aircraft in the Instance", 
ylab = "Total Delay (minutes)") 

Answer 1

당신의 접근 방식과 주요 문제는 그 panel.abline() 어디 말하는가 있습니다 ... 작동하지 않는 다음 코드를 ... 사용하여 격자 xyplot에 평균 라인을 추가하는 것을 시도하고있다 첫 번째 인수로 수식을 사용합니까? (그렇지 않습니다!) 무엇 ?panel.abline가 말하길 인수가 h과 v (특히 당신이 염두에두고있는 경우)이고 인수가 h 인 것을 원한다는 것입니다. 또한

주 그린 각 패널에 대한 xy 및 데이터를 포함하는 인자와 xy와 패널 함수를 호출하는격자. 이 작업을 위해 외부 적으로 하위 집합과 집계를 수행 할 필요는 없습니다. 그것은 당신을 위해 이루어집니다. 따라서 패널 기능을 사용하여 그리는 경우 x 및 y으로 생각해야합니다.

이 경우 패널 기능에 panel.abline(h = mean(y), ...)이 필요합니다. ...은 패널 함수 내에서 함수 호출로 전파하기 위해 패널 함수에 전달 된 추가 인수를 허용합니다. 따라서 익명 패널 기능도 ... 인수를 취해야합니다. 아래에 그 예가 나와 있습니다.

## code as factor 
temp <- transform(temp, NoOfAC = factor(NoOfAC)) 

## plot 
xyplot(maxDelay ~ NoOfAC |trExt + NoReleaseLevels, 
      data = temp, 
      panel = function(x, y, ...) { 
       panel.xyplot(x, y, ...) 
       panel.linejoin(x, y, horizontal = FALSE, ...) 
      }, 
     xlab = "Number Of Aircraft in the Instance", 
     ylab = "Total Delay (minutes)")