Question

我有一套3D坐标(低于3D空间的单一点):

x <- c(-521.531433, -521.511658, -521.515259, -521.518127, -521.563416, -521.558044, -521.571228, -521.607178, -521.631165, -521.659973)
y <- c(154.499557, 154.479568, 154.438705, 154.398682, 154.580688, 154.365189, 154.3564, 154.559189, 154.341309, 154.344223)
z <- c(864.379272, 864.354675, 864.365479, 864.363831, 864.495667, 864.35498, 864.358582, 864.50415, 864.35553, 864.359863)
xyz <- data.frame(x,y,z)

我需要用3D的原样来安排时间(以便我能够轮渡地等等)。该地块将适时显示上述点的轨迹(例如固体线)。 I used http://www.stat.ucl.ac.be/ISdidactique/Rhelp/library/R.basic/html/plot3d.html 方法,但我可以把它推向时间序列(下文只是从时间序列的第一个框架点点推):

require(rgl)    
plot3d(xyz[1,1],xyz[1,2],xyz[1,3],axes=F,xlab="",ylab="",zlab="")

我发现 ,但并未真正处理实时提供的3D地块。请提出任何建议。谢谢。

Answer 1

The solution was simpler than I thought and the problem was that I didn t use as.matrix on my data. I was getting error (list) object cannot be coerced to type double when I was simply trying to plot my entire dataset using plot3d (found a solution for this here). So, if you need to plot time-series of set of coordinates (in my case motion capture data of two actors) here is my complete solution (only works with the data set below!):

download example data set

将上述数据列入表:

data <- read.table("Bob12.txt",sep="	")

摘录XYZ坐标成一个单独的矩阵:

x <- as.matrix(subset(data,select=seq(1,88,3)))
y <- as.matrix(subset(data,select=seq(2,89,3)))
z <- as.matrix(subset(data,select=seq(3,90,3)))

3D利用:

require(rgl)
plot3d(x[1:nrow(x),],y[1:nrow(y),],z[1:nrow(z),],axes=F,xlab="",ylab="",zlab="")

你们应该像以下形象那样做(但你可以轮流担任等)——希望你们能够认识到,在那里有共同的中心。我仍需要 t击它,使其视像样更好——先把框架作为要点(明确看到行为者的合谋),然后是明显的突破,然后是框架的其余部分。

Answer 2

如果你读到<条码> 帮助(用户3d),你可看到如何打上条码:

require(rgl)    
plot3d(xyz$x,xyz$y,xyz$z,type="l")

你们想要的是吗?

Answer 3

如何做到这一点? 它使用rgl.pop(),去除一个点和一条线,并将之作为线索——改变睡觉,控制速度:

ts <- function(xyz,sleep=0.3){
  plot3d(xyz,type="n")
  n = nrow(xyz)
  p = points3d(xyz[1,])
  l = lines3d(xyz[1,])
  for(i in 2:n){
    Sys.sleep(sleep)
    rgl.pop("shapes",p)
    rgl.pop("shapes",l)
    p=points3d(xyz[i,])
    l=lines3d(xyz[1:i,])
  }
}

友情链接