如何在R中的APPLY函数中使用IF函数？

Question

这些命令显示了一个人在四个方向上随机行走的位置（不允许使用FOR LOOP）：

mat=matrix(c(1,0,0,1,-1,0,0,-1,0,0),ncol=2,byrow=T)
plot(apply(replicate(100,mat[sample(1:5,1),]),1,cumsum),type='l')

我想限制绘图框例如在X轴和Y轴之间的（-5,5）之间，这样当男人达到这个限制时，他应该继续走路而不通过限制（我的意思是，继续其他三个方向）。但我不知道在哪里放置IF条件！