library(lattice)
testX <- gl(8,5)
testY <- rnorm(40)
xyplot(testY ~ testX)
xyplot(testY ~ testX, panel=jitter.xyplot)
(xyBw <- bwplot(testY ~ testX))
(xyBwJitter <- update(xyBw, panel=jitter.xyplot))
testXnum <- rep(1:8, 5)
xyplot(testY ~ testXnum, panel=jitter.xyplot)
Run the code above in your browser using DataLab