# I think this is what you want
data <- data.frame(class = LETTERS[1:6], value = 1:6)
pd1 <- dotplot(value ~ class, data)
pd2 <- dotplot(class ~ value, data)
pd3 <- dotplot(class ~ value | cut(value, c(0, 3, 6)), data)
print(pd1, split = c(1, 1, 1, 3), more = TRUE)
print(pd2, split = c(1, 2, 1, 3), more = TRUE)
print(pd1, split = c(1, 3, 1, 3))