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)
})
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)
})
Komentar
Posting Komentar