r - 在三维空间中为矢量设置动画

Question

我对给定 x y z 坐标中矢量坐标随时间的动画有疑问。到目前为止，我坚持为 df 的每一行输出并将它们组装为 .gif。 rgl vector diagrams: show right angles for orthogonal vectors

我想做的更接近这个Spherical Coordinate System 视频。但我不需要旋转坐标系。目前仅矢量随时间旋转就足够了。

这是x、y、z向量的例子df

time <- seq(1,30,0.1)
x <- runif(291,-0.14,0.1)
y <- runif(291,-0.14,0.1)
z <-sort(runif(291,-0.9,0.9),decreasing=TRUE)

df <- data.frame(x,y,z,time)

library(matlib)
library(rgl)

vec <- rbind(diag(3), c(0.04,0.09,0.85))  # just for example.
rownames(vec) <- c("X", "Y", "Z", "J")
open3d()
vectors3d(vec, col=c(rep("black",3), "red"), lwd=2)

[[空间中的 3d 向量][2]][2]

Answer 1

请参阅 ?movie3d 中的示例。那里的函数旋转坐标系，但它可以做任何你想做的事情，包括重绘整个场景。