如何在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)