# NOT RUN {
library(lattice)
mtcars$HP <- equal.count(mtcars$hp)
useOuterStrips(xyplot(mpg ~ disp | HP + factor(cyl), mtcars))
useOuterStrips(xyplot(mpg ~ disp | factor(cyl) + HP, mtcars),
strip.left = FALSE,
strip = strip.custom(style = 4))
# }
Run the code above in your browser using DataLab