R中的渐进式点对点步行绘图

Question

如何绘制点到点的渐进式步行？

设 p1 =[1,0]、p2=[0,1]、p3=[1,1]。绘图应首先从 p1 到 p2 绘制一条线以指示方向，等待一秒钟，然后从 p2 到 p3 绘制另一条线，如果您有更多数据，它会继续。

绘图大小应首先固定为(0,1)^2。正确的输出应类似于此图像： Example plot

我现在的代码是这样的：

plot(x,y,xlim=range(x), ylim=range(y), xlab="x", ylab="y", main="Filled Plane",pch=16)
#lines(x,y,xlim=range(x),ylim=(y),pch=16)
for(i in 1:20){
  arrows(x[i],y[i],x[i+1],y[i+1],length = 0.25, angle = 30, col = 1:3)
}

Answer 1

一种选择是使用箭头。拳头你需要创建一个情节提供你想要的数据。然后你可以画线来连接你的点。假设您有 x,y 的随机均匀数组。设置限制以决定要绘制多少个点。虽然我立即放置了点（否则我无法正确放置网格）希望它有帮助。

limit<- 50
x <- runif(limit)
y <- runif(limit)
plot(x,y, xlim=range(0,1), ylim=range(0,1),
    xlab="x", ylab="y", main = "Random Walk")
grid(nx = 10, ny = 10, col = "lightgray", lty = "dotted", 
    lwd = par("lwd"), equilogs = TRUE)
for(i in 1:limit){
  arrows(x[i],y[i],x[i+1],y[i+1], length = 0.1, angle = 20)
  Sys.sleep(0.5)
}

R中的渐进式点对点步行绘图

Progressive point to point walk plotting in R

plot

r

direction

timestep