What is the equivalent of facet_wrap in Lattice

Question

Say we have some data like this:

dta <- data.frame(
   group = rep(letters[1:8], each=1000), 
   x = runif(8000), y=runif(8000)
)

I woul

Answer 1

library(lattice)
xyplot(y ~ x | group, dta, layout=c(4,2), as.table = TRUE)

As suggested by @BenBarnes, as.table = TRUE keeps the order of the facets.