R - 将线性模型扩展到scatterplot3d之外

Question

我创建了一个应用了线性模型的scatterplot3d。

不幸的是，LM的结果很微妙，需要强调，我的问题是如何将LM网格扩展到“多维数据集”之外。

简介：

代码：

Plot1 <-scatterplot3d(

              d$MEI,   
              d$YYYYMM,     
              d$AOELog10,
              pch=20,
              grid = FALSE,
              color = "black",
              xlab="MEI",
              ylab="Date",
              zlab="AOE Log(10)"

                       )


fit <- lm(d$AOELog10 ~ d$MEI+d$Rank) 
Plot1$plane3d(fit)

现在我想它可能是lm（）中的一个变量，但我找不到任何东西......

Answer 1

要查看更大的区域或感兴趣的区域，请在scatterplot命令中指定x，y和z限制。

library(scatterplot3d)
d<-data.frame(MEI=runif(200,-3,3),
              YYYYMM=runif(200,1,300),
              AOELog10=runif(200,1,20),
              Rank=runif(200,1,5))
fit <- lm(d$AOELog10 ~ d$MEI+d$Rank) 
Plot1 <-scatterplot3d(
  d$MEI, d$YYYYMM, d$AOELog10,
  pch=20, grid = FALSE, color = "black",
  xlab="MEI", ylab="Date", zlab="AOE Log(10)",
  main="baseline"
)
Plot1$plane3d(fit)

Plot2 <-scatterplot3d(
  x=d$MEI, y=d$YYYYMM, z=d$AOELog10,
  pch=20, grid = FALSE, color = "black",
  xlab="MEI", ylab="Date", zlab="AOE Log(10)",
  xlim = c(-5,5), ylim = c(-50,400), zlim = c(-10,50),  # Specify the plot range
  main="larger region"
)
Plot2$plane3d(fit)