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 轴值为x$Position，而不仅仅是从 1 递增。我可以用以下方式绘制它：

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

但文本标签仍显示递增值，而不是x$Position. 我尝试了多种方法来解决这个问题，但都没有成功。

如何将x$Position值作为文本包含在图表上，但仅适用于x$S1高于阈值的值？

Answer 1

你想要这个吗？：

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