`scatterplot3d`：不能將回歸平面添加到3D散點圖

Question

我已經在R中創建了3D散點圖並且想要添加回歸平面。我查看了statmethods.net網站的代碼，這些代碼可能非常有用，而且很有效。然後我用自己的數據嘗試過，飛機沒有出現。

library(scatterplot3d) 
s3d <- scatterplot3d(Try$Visits, Try$Net.Spend, Try$Radio, pch=16, highlight.3d = TRUE, type = "h", main = "3D Scatterplot") 
fit <- lm(Try$Visits ~ Try$Net.Spend +Try$Radio) 
s3d$plane3d(fit) 

Answer 1

我不能用下面的重複的例子，重現該問題：

set.seed(0) 
x <- runif(20) 
y <- runif(20) 
z <- 0.1 + 0.3 * x + 0.5 * y + rnorm(20, sd = 0.1) 
dat <- data.frame(x, y, z) 
rm(x,y,z) 

fit <- lm(z ~ x + y, data = dat) 
library(scatterplot3d) 
s3d <- scatterplot3d(dat$x, dat$y, dat$z, pch=16, highlight.3d = TRUE, type = "h", main = "3D Scatterplot") 
s3d$plane3d(fit) 

你應該避免$模型公式。改用data的說法：

fit <- lm(Visits ~ Net.Spend + Radio, data = Try)