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

Чтобы увидеть более крупную область или интересующую область, задайте пределы x, y и z в команде scatterplot.

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)