legend unreasonably large

[tverbeke]

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)