将数据标签添加到带状图

Question

我制作了一个带有红色标记的阈值的脱衣图。我想标记落在阈值左侧的点，但似乎根本无法使“文本”功能正常工作。

stripchart screenshot

这是脱衣舞图表代码：

stripchart(ctrls$`Staining Green`, method="jitter", pch=4, xlab='Staining Green', cex.lab=2) 
abline(v=5,col=2,lty=3)

我首先尝试仅过滤低于阈值的那些样本：Staining.Green <- filter(QCcontrols, Staining.Green < 5)然后用添加文字text(Staining.Green$`Staining Green` + 0.1, 1.1, labels = Staining.Green$Sample_Name, cex = 2)这没有向图表添加任何文本。

[然后，我尝试标记所有要点，以防万一，因为太复杂了，并带有以下内容：text(ctrls$`Staining Green` + 0.1, 1.1, labels = ctrls$Sample_Name)同样，没有添加任何文本，也没有错误消息。

任何建议，不胜感激！

更新：我的ctrls对象比我意识到的要复杂-也许这使我绊倒了：

List of 17
 $ Restoration                 : num [1:504] 0.0799 0.089 0.1015 0.1096 0.1092 ...
  ..- attr(*, "threshold")= num 0
 $ Staining Green              : num [1:504] 25.1 23.5 21.1 19.7 22.3 ...
  ..- attr(*, "threshold")= num 5
 $ Staining Red                : num [1:504] 39.8 40.9 36.9 33.2 33.2 ...
  ..- attr(*, "threshold")= num 5.......```

Answer 1

这里是使用airquality的内置数据集的一个示例：

stripchart(airquality$Ozone,
           main="Mean ozone in parts per billion at Roosevelt Island",
           xlab="Parts Per Billion",
           ylab="Ozone",
           method="jitter",
           col="orange",
           pch=4
)

abline(v = 5, col = 2, lty = 3)

with(subset(airquality, Ozone < 5), text(Ozone, 1.1, labels = Ozone))

图

数据

Ozone的最小值是：

head(sort(airquality$Ozone), 5)
[1] 1 4 6 7 7

编辑：

这里是一个具有类似结构的列表的快速演示：

vec1 <- c(0.0799, 0.089, 0.1015, 0.1096, 0.1092)
attr(vec1, 'threshold') <- 4

vec2 <- c(25.1, 3, 21.1, 19.7, 22.3)
attr(vec2, 'threshold') <- 5

ctrls <- list(Restoration = vec1, `Staining Green` = vec2)

stripchart(ctrls$`Staining Green`, 
           method="jitter", 
           pch=4, 
           xlab='Staining Green', 
           cex.lab=2
)

abline(v=5,col=2,lty=3)

text(ctrls$`Staining Green`[ctrls$`Staining Green` < 5], 1.1, labels = ctrls$`Staining Green`[ctrls$`Staining Green` < 5])

图