超越scatterplot3d的r-扩张线性模型

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

若要查看更大的区域或感兴趣的区域，请在散点图命令中指定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)