Избирательно включают текстовые метки на графике

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. Я могу построить это с:

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)