有没有办法用虚线更改geom_segment（）中箭头的线型？

Question

我在ggplot2中遇到以下问题。我正在制作一个需要包含不同类型箭头的情节。我想为每个箭头使用不同的线型，使图形可以黑白显示。不幸的是，ggplot2以与线条相同的样式绘制箭头。这导致箭头几乎不能被识别。有没有办法将箭头更改为实线？

玩具示例：

ggplot(data.frame(x = c(0,6)), aes(x = x)) +
 geom_segment(x = 0,
              xend = 1,
              y = 0,
              yend = 0.5,
              linetype = "dotted",
              arrow = arrow(arrow(length = unit(2,"mm"),
                            ends = "both"))
            )

这是一个情节的屏幕截图，这会导致隐形箭头：