``` library(imp.lattice) x11() .impenv$backend <- graphics_primitives data(barley, package = "lattice") dotplot(yield ~ variety | site, data = barley, layout = c(1, 6), aspect = 0.7, groups = year) ```