if(require(lattice, quietly = TRUE)) {
param <- adegpar("plabels")[[1]]
xyplot(1:10 ~ 1:10, panel = function(x, y, ...){
adeg.panel.label(x, y, LETTERS[1:10], plabels = param)})
}
if(require(lattice, quietly = TRUE)) {
param$boxes$draw <- FALSE
param$col <- "blue"
xyplot(1:10 ~ 1:10, panel = function(x, y, ...){
adeg.panel.label(x, y, LETTERS[1:10], plabels = param)})
}
Run the code above in your browser using DataLab