`scatterplot3d`: kann keine Regressionsebene zum 3D-Streudiagramm hinzufügen

Question

Ich habe ein 3D-Streudiagramm in R erstellt und möchte eine Regressionsebene hinzufügen. Ich habe Code von der Website statmethods.net betrachtet, was sehr nützlich sein kann, und es hat funktioniert. Ich habe es dann mit meinen eigenen Daten versucht und das Flugzeug ist nicht aufgetaucht.

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

ich mit dem folgenden reproduzierbaren Beispiel das Problem nicht reproduzieren können:

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) 

Sie sollten $ in Modellformel vermeiden. Verwenden Sie stattdessen data Argument:

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