library(rasterVis)
s <- stack(replicate(6, raster(matrix(runif(100), 10))))
x.scale <- list(font=10,
fontface=2,
alternating=1)
y.scale <- list(font=10,
fontface=2,
alternating=1)
levelplot(s, layout=c(3, 2), index.cond=list(c(1, 3, 5, 2, 4, 6)),
scales = list(x=x.scale, y=y.scale))