r - グラフにテキスト ラベルを選択的に含める

Question

x次のデータ フレーム ( )をプロットします。

  Position     S1     S2     S3     S4
1       53 0.0000 0.5000 0.0000 0.2000
2       54 0.2000 0.5000 0.0000 0.0000
3       55 0.0000 0.5000 0.1000 0.0000
4       56 0.0000 0.0000 0.1000 0.4000
5       57 0.2000 0.0000 0.0000 0.0000
6       58 0.0000 0.0000 0.2000 0.0000
7       59 0.3000 0.0000 0.1000 0.0000
8       60 0.0000 0.4000 0.0000 0.6000
9       61 0.0000 0.0000 0.0000 0.5000
10      62 0.0000 0.0000 0.1000 0.6000

を使用してテキストを追加します

plot(x$S1, type="h")
text(x$S1)

ただし、テーブル内のしきい値を超える値のテキストのみが必要です。だから私は次のことをします：

plot(x$S1, type="h")
y = x$S1
y[y<0.2] = NA
text(y)

これは私が望むように機能します。x$Positionただし、理想的には、 1 からインクリメントするだけでなく、x 軸の値を にしたいと思います。これを次のようにプロットできます。

plot(x$Position, x$S1, type="h")

ただし、テキスト ラベルには の値ではなく、増加する値が表示されますx$Position。これを解決するために多くのアプローチを試みましたが、成功していません。

しきい値を超える値x$Positionのみをグラフにテキストとして含めるにはどうすればよいですか?x$S1