scatterplot3d 的 abline 替代品？
Alternative to abline for scatterplot3d?
对于 3D 散点图，是否有替代 'abline' 的方法？
我正在使用 'scatterplot3d' 包。
图中的蓝线是我想要做的。
如果我加一个'surface'，那么它会挡住原来的情节。
是这样的吗？
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" 的线）。
对于 3D 散点图，是否有替代 'abline' 的方法？ 我正在使用 'scatterplot3d' 包。
图中的蓝线是我想要做的。 如果我加一个'surface'，那么它会挡住原来的情节。
是这样的吗？
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" 的线）。