R/grid.identify.points.R

In fastR: Data sets and utilities for Foundations and Applications of Statistics by R Pruim

grid.identify.points <-
function (x, y, ind, offset = 0.03, labels = 1L:length(x), cex = 0.65, 
    col = trellis.par.get("add.text")$col, adj.x = TRUE, adj.y = FALSE) 
{
    if (adj.x) {
        hjust <- c(1, -1)[1 + as.numeric(x < mean(range(x)))]
        hoffset <- unit(c(-1, 1)[1 + as.numeric(x < mean(range(x)))] * 
            offset, "npc")
    }
    else {
        hjust = rep(0, length(x))
        hoffset <- unit(rep(0, length(x)), "npc")
    }
    if (adj.y) {
        vjust <- rep(1, length(x))
        voffset <- unit(rep(offset, length(x)), "npc")
    }
    else {
        vjust = rep(0, length(x))
        voffset <- unit(rep(0, length(x)), "npc")
    }
    grid.text(as.character(labels[ind]), x = unit(x[ind], "native") + 
        hoffset[ind], y = unit(y[ind], "native") + voffset[ind], 
        gp = gpar(cex = cex, col = col), hjust = hjust[ind], 
        vjust = vjust[ind], default.units = "native")
}