library(lattice)
Depth <- equal.count(quakes$depth, number=8, overlap=.1)
# this is the old way, don't do this anymore use the example below
xyplot(lat ~ long | Depth, data = quakes, strip=strip.shingle)
if(require(lattice)) {
xyplot(lat ~ long | Depth, data=quakes,
strip=strip.custom(strip.names=TRUE, strip.levels=TRUE),
par.strip.text=list(cex=0.75))
}
Run the code above in your browser using DataLab