R 如何绘制（x，y）对的索引集，使索引平行于x轴，但位于帧的顶部

例如，假设：

x <- rnorm(20)

y <- rnorm(20) + 1

n <- seq(1,20,1)

data <- data.frame(n, x, y)

是否可以在绘图顶部用每对的索引值绘制y~x

可以用基本图形而不是ggplot来完成吗

这可能很简单，但我正在努力通过谷歌寻求帮助。我猜我用的词选得不好

---

非常感谢您的帮助

是的，我们可以添加标签。请尝试以下代码：

x <- rnorm(20)

y <- rnorm(20) + 1

n <- seq(1,20,1)

data <- data.frame(n, x, y)

plot(y~x)

with(data, text(y~x, labels = row.names(data)))

如果要在打印边界上方的同一行上打印所有索引，可以在使用文本时为y指定适当的值。但是，首先必须通过parxpd=TRUE才能在绘图边界外绘制

plot(x,y)
text(x = x, y = y, n, pos = 3)
#Adds text 'n' at co-ordinate (x,y)
# "pos = 3" means the text will be just above the co-ordinates
#See ?text for more