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

Question

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

让我们有 p1 =[1,0]，p2=[0,1]，p3=[1,1]。绘图应首先从 p1 到 p2 画一条线来显示方向，等待一秒钟，然后从 p2 到 p3 画另一条线，如果有更多数据，它会继续。

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

我的代码现在是这样的：

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)
}