R语言ggplot2绘制折线图给折线添加标签

Question

在使用R语言的ggplot2包绘制折线图时，遇到一个问题，就是当折线太多（我目前要绘制70多组数据的折线），使用线形区分，线形种类不够，使用颜色区分，很多相近的颜色不好分辨，所以考虑到不使用图例，而是在每条折线末端添加标签，注明折线代表哪一组数据。但是使用图层geom__text好像只能给折线上的点添加标签，而不能给整条线添加标签，所以想问一下该怎样给每条折线末端添加一个标签。这是我绘图的代码：

ggplot(plot_data,aes(x = date,y = confirmed,colour = country,group = country)) + geom_line() + theme( plot.margin = unit(c(0,0,0,0), "cm")) + coord_cartesian(ylim=c(1000, 1800000)) + geom_text(aes(label = paste0(country)),check_overlap = T)
```其中plot_data、data、confirmed、country都是绘图所需要的数据。
最后希望得到这样类似的效果：![图片说明](https://img-ask.csdn.net/upload/202006/16/1592290598_308124.png)
感谢！

Answer 1

以country分组为不同颜色绘制的折线图不是应该已经有国家名的legend图例显示了吗？