library(lattice) x <- c(1,3,5,7,9) y <- c(21,17,9,8,10) names <- c('a','b','c','d','e') xyplot(y~x,pch=20, panel=function(x, y, ...) { panel.xyplot(x, y, ...) panel.abline(h=15,v=4, lty=2) panel.text(5,15,"anfarmatika.blogspot.com", cex=3, col='grey', srt=45); ltext(x=x, y=y, labels=names, pos=1, offset=1, cex=.8) })