小编Ale*_*lex的帖子

我有一个有显着重叠的图，我想在其中抖动 geom_line 和 geom_point。这个解决方案（如何以相同的幅度抖动 geom_line 和 geom_point？）过去对我来说效果很好，但由于某种原因我无法让它在这个数据集上工作。

这是我的数据：

dput(test)
structure(list(individual_code = structure(c(1L, 1L, 1L, 1L, 
1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 
4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 
7L, 7L, 7L, 7L, 7L, 7L, 8L, 8L, 8L, 8L, 8L, 8L, 9L, 9L, 9L, 9L, 
9L, 9L, 10L, 10L, 10L, 10L, 10L, 11L, 11L, 11L, 11L, 11L, 11L, 
12L, 12L, …

我正在尝试使用 geom_label_repel 将标签添加到绘图上的几个数据点。在这种情况下，它们恰好是箱线图上的异常值。我已经让大部分代码正常工作，我可以标记异常值，但由于某种原因，我得到了映射到该点的多个标签（等于整个数据集的样本大小）。我只想要这个异常值的一个标签。

例子：

这是我的数据：

dput(sus_dev_data)
structure(list(time_point = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 
3L, 3L, 3L, 3L, 3L), .Label = c("3", "8", "12"), class = "factor"), 
    days_to_pupation = c(135L, 142L, 143L, 155L, 149L, 159L, 
    153L, 171L, 9L, 67L, 53L, 49L, 72L, 67L, 55L, 64L, 60L, 122L, 
    53L, 51L, 49L, 53L, 50L, 56L, 44L, 47L, 60L)), row.names = c(1L, 
2L, 3L, 4L, 5L, 6L, …