R/textxy.R

In jlaffy/scalop: Single Cell Analysis Operations

# this function was taken from calibrate package
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, ...)
}