R/textxy.R

In calibrate: Calibration of Scatterplot and Biplot Axes

"textxy" <- function (X, Y, labs, m = c(0, 0), cex = 0.5, offset = 0.8, ...) 
{
    posXposY <- ((X >= m[1]) & ((Y >= m[2])))
    posXnegY <- ((X >= m[1]) & ((Y <  m[2])))
    negXposY <- ((X <  m[1]) & ((Y >= m[2])))
    negXnegY <- ((X <  m[1]) & ((Y <  m[2])))
    if (sum(posXposY) > 0) 
        text(X[posXposY], Y[posXposY], labs[posXposY], adj = c(0.5-offset, 
            0.5-offset), cex = cex, ...)
    if (sum(posXnegY) > 0) 
        text(X[posXnegY], Y[posXnegY], labs[posXnegY], adj = c(0.5-offset, 
            0.5+offset), cex = cex, ...)
    if (sum(negXposY) > 0) 
        text(X[negXposY], Y[negXposY], labs[negXposY], adj = c(0.5+offset, 
            0.5-offset), cex = cex, ...)
    if (sum(negXnegY) > 0) 
        text(X[negXnegY], Y[negXnegY], labs[negXnegY], adj = c(0.5+offset, 
            0.5+offset), cex = cex, ...)
}