Ich möchte einfach mit ggplot2 mehrere Pfeile auf einem Streudiagramm zeichnen. In diesem (Dummy-) Beispiel wird ein Pfeil gezeichnet, der sich jedoch bewegt, während i inkrementiert und nur ein Pfeil gezeichnet wird. Warum passiert das?

library(ggplot2)
a <- ggplot(mtcars, aes(wt, mpg)) + geom_point()
b <- data.frame(x1=c(2,3),y1=c(10,10),x2=c(3,4),y2=c(15,15))
for (i in 1:nrow(b)) {
        a <- a + geom_segment(arrow=arrow(), 
          mapping = aes(x=b[i,1],y=b[i,2],xend=b[i,3],yend=b[i,4]))
         plot(a)
 }

Vielen Dank