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
)