Draw bw-plot

gistfile1.r

library(lattice)

mybwplot <- function(x, y, interval=0.2, ylab=deparse(substitute(y)), xlab=deparse(substitute(x)), main="", sub="") {
  bwplot(y ~ factor(trunc(x/interval)*interval), xlab=xlab, ylab=ylab, main=main, sub=sub,
         panel=function(...){
           panel.grid(h=-1, v=0)
           panel.bwplot(...)
         }, scales=list(rot=c(45,0)))
}