Variation
'plot.points' <- function( points.x = x, points.y = y, points.symbol = "x", points.size = 1, points.color = "black" ){ cat("\nPlotting Points\n") panel.xyplot( x = points.x, y = points.y, pch = points.symbol, cex = points.size, col = points.color ) }
key = list( title = "Legend", text = list( c("Points"), col="black" ), points = list( col = c("black"), pch = c(4), cex = c(1)*0.75 ), lines = list( col = c("black"), lwd = c(1)*0.75, lty = c("blank") ), type = "l", space = "right", cex.title = 1, cex = 0.75 )