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
)