将标签*行号*添加到绘图

Question

如何修改此代码以使其具有一个绘图，以便它在图形上显示 其每个点的相应行号作为标签。

inter <- seq(7.5, 21.5, 1) 
LogDifference <- c("na",1.5,0.8,0.6,0.01,-0.57,-0.11,0.41,0.068,-0.19,-0.31,0.05,0.14,0.6,0.5) 
S<-data.frame(inter,LogDifference) 
plot(x = S$inter,S$LogDifference) 

Answer 1

首先，请注意，您的基本情节没有做你想做的事。 正在绘制的y值是数字1到14.我认为你想要 LogDifference中的数值。您可以通过 首先将LogDifference转换为字符（这是一个因子），然后将 转换为数字来修复此问题。我只是抛弃了“na”。

之后，您可以使用text将标签放置在点旁边。 完整的代码是：

inter <- seq(7.5, 21.5, 1) 
LogDifference <- c("na",1.5,0.8,0.6,0.01,-0.57,-0.11,0.41,0.068, 
    -0.19,-0.31,0.05,0.14,0.6,0.5) 
S<-data.frame(inter,LogDifference) 
plot(x = S$inter[-1], as.numeric(as.character(S$LogDifference[-1]))) 
text(x=inter[-1]+0.4, y=as.numeric(as.character(LogDifference[-1]))+0.05, labels=2:15)