如何在ggplot2中注释这样的行？

Question

见例如：

我希望我并不需要手动指定文本的协调员。如果这在ggplot2中实现过于复杂，R中有哪些替代方案？或者甚至可能不在R？

Answer 1

正如@Axeman所说，ggrepel是一个体面的选择。不幸的是，它只会避免与其他标签重叠，而不是线条，因此解决方案并不完美。

library(ggplot2) 
install.packages("ggrepel") 
library(ggrepel) 

set.seed(50) 
d <- data.frame(y = c(rnorm(50), rnorm(50, 5), rnorm(50, 10)), 
    x = rep(seq(50), times = 3), 
    group = rep(LETTERS[seq(3)], each = 50)) 

ggplot(d, aes(x, y, group = group, label = group)) + 
    geom_line() + 
    geom_text_repel(data = d[d$x == sample(d$x, 1), ], size = 10)