用Rstudio进行时间延迟绘制的箭头函数

Question

我需要一个情节来显示一个男人在四个主要方向上随机行走的位置。我使用RStudio，我希望看到它们产生的位置 不允许在范围之外行走，（-L1，L1）用于水平行走，（-L2，L2）用于垂直行走。问题在于'箭头'功能，当男人到达限制时，没有箭头画出来了。

   RW2<-function(n,L1,L2){
   plot(1, type="n", xlab="", ylab="",xlim = c(-L1,L1),ylim = c(-L2,L2))
   text(0,0,"*")
   x<-y<-numeric(0)
   x[1]=y[1]=0
   for (i in 2:n){
     directtion<-sample(-1:1,1)
       if (directtion==0){
         x[i]<-x[i-1]
         ifelse((y[i-1]<=L2 && y>=-L2),y[i]<-y[i-1]+sample(c(-1,1),1),y[i]<-y[i-  1])
          }
      else {
         ifelse((x[i-1]<=L1 && x[i-1]>=-L1),x[i]<-x[i-1]+directtion,x[i]<-x[i-1])
         y[i]<-y[i-1]
         }
        Sys.sleep(0.1)
        arrows(x[i-1],y[i-1],x[i],y[i],length = 0.08,col =i)
          }
     }
RW2(100,5,5)

提前感谢大家，对不起我的英文写作。