Вы можете использовать текст (), как показано ниже:
set.seed(10)
x = rnorm(10)
y = rnorm(10)
plot(y~x, pch = ".", cex = 2)
text(x, y,
label = paste("(", round(x, 1), ", ", round(y, 1), ")", sep = ""),
cex = 0.6)
Если вам не нужны все точки, просто отправьте некоторые из них в текст ().