ラベル*行番号*をプロットに追加

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を文字に変換することで解決できます（これが要素です）。 を数値に変換します。私はちょうど "ナ"を残しています。

その後、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)