我正在尝试使用汽车包装中的 scatter3d。我的代码如下:
library(car)
x <- sample(20 : 100, size = 1000, replace = TRUE)
z <- sample (20:100, size = 1000, replace = TRUE)
y <- (2/3)*x^(3/2) - (z^2)/6 + x * z/3 - 1 /(x/1000 * z/10)
q <- quantile(y, probs=c(0.001, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 0.999 ))
p <- as.numeric((y > q[2] & y < q[3]) | (y > q[6] & y < q[7]))
scatter3d(p ~ x + z, grid = FALSE, groups = as.factor(p), surface = FALSE)
scatter3d(p ~ x + z, grid = FALSE, fit = "smooth")
输出如下:
我的问题是如何解释平滑表面——假设依赖项是二进制的?我应该将其解释为概率吗?然而,它的高度不限于范围 [0,1]。
或者,我不应该使用带有二进制变量的光滑表面?
您的建议将不胜感激。