Return to Answer

Create a custom panel function, e.g.

library("lattice") p <- barchart((1:10)^2~1:10, horiz=FALSE, ylim=c(0,120), panel=function(...) { args <- list(...) panel.text(args$x, args$y, args$y, pos=3, offset=1) panel.barchart(...) }) print(p) 

lattice barchart with labels http://img215.imageshack.us/img215/4818/panelfuncy.png

Create a custom panel function, e.g.

library("lattice") p <- barchart((1:10)^2~1:10, horiz=FALSE, ylim=c(0,120), panel=function(...) { args <- list(...) panel.text(args$x, args$y, args$y, pos=3, offset=1) panel.barchart(...) }) print(p) 

Create a custom panel function, e.g.

library("lattice") p <- barchart((1:10)^2~1:10, horiz=FALSE, ylim=c(0,120), panel=function(...) { args <- list(...); panel.text(args$x, args$y+2, args$y); panel.barchart(...) }) print(p) 

lattice barchart with labels http://img215.imageshack.us/img215/4818/panelfuncy.png

Create a custom panel function, e.g.

library("lattice") p <- barchart((1:10)^2~1:10, horiz=FALSE, ylim=c(0,120), panel=function(...) { args <- list(...) panel.text(args$x, args$y, args$y, pos=3, offset=1) panel.barchart(...) }) print(p) 

lattice barchart with labels http://img215.imageshack.us/img215/4818/panelfuncy.png

Create a custom panel function, e.g.

library("lattice") barchart((1:10)^2~1:10, horiz=FALSE, ylim=c(0,120), panel=function(...) { args <- list(...); panel.text(args$x, args$y+2); panel.barchart(...) }) 

Create a custom panel function, e.g.

library("lattice") p <- barchart((1:10)^2~1:10, horiz=FALSE, ylim=c(0,120),   panel=function(...) {   args <- list(...);   panel.text(args$x, args$y+2, args$y);   panel.barchart(...)   }) print(p) 

lattice barchart with labels http://img215.imageshack.us/img215/4818/panelfuncy.png