R ggplot-使用箭头在末端标记每条线

这个问题听起来可能令人困惑，所以这里有几张图片来说明我试图实现的目标

目前，我有：

我想要的是：

我对directlabels软件包以及如何避免剪辑有些了解。但我找不到任何关于添加箭头/线的信息，这些箭头/线标记并指向每一行。我有很多线聚集在一起的图，所以箭头会很有帮助

这是我的代码，如果你想重现这个情节。谢谢

library(ggplot2)


year <- 2008:2018

cvd <- rnorm(11, 15, 1)
alz <- rnorm(11, 10, 0.5)
ui <- rnorm(11, 9, .8)
stro <- rnorm(11, 6, 3)

df <- data.frame("Year" = as.factor(rep(year, 4)), "Number of Deaths" = c(cvd, alz, ui, stro), "Cause of Death" = c(
  rep("Cardiovascular Disease", 11),
  rep("Alzheimers Disease", 11),
  rep("Unidentified Cause of Death", 11),
  rep("Stroke", 11)
))

ggplot(data=df, aes(x=Year, y=Number.of.Deaths, group=Cause.of.Death, color = Cause.of.Death)) + geom_line() +
  theme(legend.position = "none")

库（ggplot2）
年我会去图书馆（ggrepel）

这与您要查找的内容非常接近：


库（ggplot2）
库（数据表）
图书馆（ggrepel）
年我会去图书馆（ggrepel）

这与您要查找的内容非常接近：


库（ggplot2）
库（数据表）
图书馆（ggrepel）
欢迎来到SO！出于可复制性的目的，在脚本的开头包含
set.seed（）
，这不是一个坏主意；）欢迎来到SO！出于可复制性的目的，在脚本的开头包含
set.seed（）
，这不是一个坏主意；）