이 작업을 수행하는 더 간단한 방법이 있어야합니다.하지만 여기에는 원하는대로 할 수있는 해킹이 있습니다.
# sample data
dat <- data.frame(Y=rpois(100,20),A=factor(c(rep("A1",50),rep("A2",50))),B=factor(c(rep("B1",50),rep("B2",50))))
dat$B <- sample(dat$B)
# create blank (colourless) histogram
p <- histogram(~Y|A*B,dat,col=0,border=0)
# subset and print blank panels
p[1,]
# draw data from desired panels onto blank "template"
trellis.focus("panel",1,1)
do.call("panel.histogram",trellis.panelArgs(p,1)[1:5])
trellis.focus("panel",1,2)
do.call("panel.histogram",trellis.panelArgs(p,4)[1:5])
trellis.unfocus()
왼쪽 모두 위 그림의 아래쪽 스트립을 변경하는 것입니다. trellis.focus("strip",1,2)
을 호출하면 포커스가 설정되고 다른 적절한 호출이이를 바꿀 수 있어야하지만 그게 무엇인지 찾을 수 없습니다. 그러나 그것은 overplot 수 있습니다.
awesome! 고맙습니다. 'paste'와 'subset'함수는 매우 유용합니다! – Michael