替代scatterplot3d的for？

Question

对于三维散射图，是否有一种替代“an”的方法？我用的是'scatterplot3d‘包。

图像中的蓝线是我想要做的。如果我加了一个“曲面”，它就会阻止原来的情节。

​

​

Answer 1

像这样吗？

​

​

th <- seq(0,8*pi,len=100)
r  <- seq(0,1,len=100)
x  <- r*cos(th)
y  <- r*sin(th)
z  <- 10*r
library(scatterplot3d)
plt <- scatterplot3d(x,y,z, type="l")
plt$points3d(x=c(-1,1,1,-1,-1), y=c(1,1,-1,-1,1),z=rep(5,5), type="l", col="blue", lwd=2)

基本思想是捕获sactterplot3d(...)返回的对象。这是一个列表，其中一个元素是一个函数，points3d(...)可以向现有的地块添加点(或用type="l"表示的线条)。