如何更改r中箭头的形状，颜色和轮廓？

Question

我试图在点图上放置一系列箭头。在对ggplot进行了一次黑客攻击后，我必须将箭头放在适当的位置：

library(ggplot2)
library(grid)
N_seq <- rep(seq(1,50,by=1),2)
Y_seq <- rnorm(100)
Speci <- c(rep("Sample1",50),rep("Sample2",50))
Arrow_tail_x <- c(rep(0,20),rep(20,20),rep(30,10))
Arrow_head_x <- c(rep(20,20),rep(30,20),rep(50,10))
Arrow_tail_y <- c(rep(max(Y_seq)*0.25 + max(Y_seq),50))
Arrow_head_y <- c(rep(max(Y_seq)*0.25 + max(Y_seq),50))

data <- data.frame(N_seq,Y_seq,Speci,Arrow_tail_x,Arrow_tail_y,Arrow_head_x,Arrow_head_y)

p <- ggplot(data=data,aes(x=N_seq,y=Y_seq)) +
  theme_bw() + theme(panel.border = element_blank(), panel.grid.major=element_blank(), panel.grid.minor= element_blank(),axis.line=element_line(colour="black")) +
  ylim(min(Y_seq),max(Y_seq)*0.25 + max(Y_seq)) + 
  scale_x_continuous(breaks=c(0,10,20,30,40,50),labels=c(0,100,200,300,400,500)) +
  geom_segment(aes(x=Arrow_tail_x,xend=Arrow_head_x,y=Arrow_head_y , yend=Arrow_tail_y),arrow = arrow(length=unit(20,"mm"),type='closed')) +
  geom_point(aes(color=Speci))

png("segment.png")
p
dev.off()

但是，此代码生成标准的黑色箭头，非常窄的茎。到目前为止，我一直无法找到如何使用不同颜色更改箭头。如何制作更时尚的箭头？ R只有一种箭头吗？如何控制茎杆的宽度？我希望得到类似的东西，但我还没有发现如何做到这一点：