これを行う簡単な方法があるはずですが、ここではあなたが望むものの近くできれいになるはずです。
# 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)
を呼び出すと、それに焦点が当てられ、適切な他の呼び出しがそれを変更できるはずですが、それが何であるかはわかりません。しかし、それは誇張かもしれない。
awesome!ありがとうございました。 「ペースト」と「サブセット」の機能は非常に便利です! – Michael