Должен быть более простой способ сделать это, но вот хак, который должен приблизить вас к тому, что вы хотите.
# 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)
поставит его в фокус, и какой-нибудь подходящий другой вызов сможет изменить его, но я не могу найти, что это будет.Однако это может привести к переполнению.