Colocación inteligente de etiquetas de puntos en R

1) ¿Hay alguna biblioteca / función R que implementaría la colocación INTELIGENTE de etiquetas en el gráfico R? Intenté algunos, pero todos son problemáticos: muchas etiquetas se superponen entre sí o con otros puntos (u otros objetos en la trama, pero veo que esto es mucho más difícil de manejar).

2) Si no es así, ¿hay alguna forma de ayudar COMODAMENTE al algoritmo con la colocación de etiquetas para puntos problemáticos particulares? Se busca la solución más cómoda y eficiente.

Puedes jugar y probar otras posibilidades con mireproducible ejemplo y vea si puede lograr mejores resultados que yo:

# data
x = c(0.8846, 1.1554, 0.9317, 0.9703, 0.9053, 0.9454, 1.0146, 0.9012, 
0.9055, 1.3307)
y = c(0.9828, 1.0329, 0.931, 1.3794, 0.9273, 0.9605, 1.0259, 0.9542, 
0.9717, 0.9357)
ShortSci = c("MotAlb", "PruMod", "EriRub", "LusMeg", "PhoOch", "PhoPho", 
"SaxRub", "TurMer", "TurPil", "TurPhi")

# basic plot
plot(x, y, asp=1)
abline(h = 1, col = "green")
abline(v = 1, col = "green")

Para el etiquetado, probé estas posibilidades, nadie es realmente bueno:

1) este es terrible:

text(x, y, labels = ShortSci, cex= 0.7, offset = 10)

2) este es bueno si no desea colocar etiquetas para todos los puntos, pero solo para los valores atípicos, pero aún así, las etiquetas a menudo se colocan incorrectamente:

identify(x, y, labels = ShortSci, cex = 0.7)

3) este parecía prometedor, pero existe el problema de que las etiquetas estén demasiado cerca de los puntos; Tuve que rellenarlos con espacios pero esto no ayuda mucho:

require(maptools)
pointLabel(x, y, labels = paste("  ", ShortSci, "  ", sep=""), cex=0.7)

4)

require(plotrix)
thigmophobe.labels(x, y, labels = ShortSci, cex=0.7, offset=0.5)

5)

require(calibrate)
textxy(x, y, labs=ShortSci, cx=0.7)

¡Gracias de antemano

EDITAR todo: pruebalabcurve {Hmisc}.

Respuestas a la pregunta(7)

Su respuesta a la pregunta