如何使用rgl绘制虚线/虚线

Question

我正在尝试使用rgl绘制一些3d形状，但我想使用虚线/虚线连接我的点。我怎样才能做到这一点？目前我有

require(rgl)

p1 <- c(0,0,0)
p2 <- c(1,0,0)
p3 <- c(1,1,0)
p4 <- c(0,1,0)
p5 <- c(0.5,0.5,0.5)

mat <- cbind(p1,p2,p3,p4,p1,p5,p2,p5,p3,p5,p4)
x <- as.numeric(mat[1,])
y <- as.numeric(mat[2,])
z <- as.numeric(mat[3,])

plot3d(x,y,z,type="l",lwd=2,lty=3,box=FALSE,axes=FALSE,xlab="",ylab="",zlab="")

所以lwd有效但lty没有。我也尝试了lty="dashed"，但无济于事。

我基本上想要绘制我可以

的3D形状

1. 轻松旋转/缩放（就像rgl给出的那样）
2. 导出为矢量图形格式（如rgl.postscript）
3. 指定线条类型和颜色

如果有另一个包可以实现这一点，请分享。感谢。

Answer 1

我认为使用rgl包最好的方法是将顶点作为点：

vertices <- c(t(cbind(x,y,z,1)))
indices <- seq_along(x)
dot3d( qmesh3d(vertices,indices) )