`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)