R/display.marks.R

In rgr: Applied Geochemistry EDA

display.marks <-
function () 
{
    frame()
    old.par <- par(); on.exit(par(old.par))
    par(usr = c(0, 5, 0, 5))
    mtext("R plotting marks, e.g., use\npch = 3 to plot plusses", 
        side = 1, line = 2, cex = 2)
    for (i in 0:18) {
        x <- 0.5 + (i%%5)
        y <- 4.5 - (0.5 + (i%/%5))
        points(x + 0.2, y - 0.2, pch = i, cex = 3)
        text(x - 0.2, y + 0.2, i, cex = 2, adj = 0.5)
    }
    abline(h = 1:5 - 0.5, lty = 1)
    segments(0:5, rep(0.5, 5), 0:5, rep(4.5, 5))
    invisible()
}