1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
"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, ...)
}
|
