r - 在 R 中的 3D 散点图中添加网格

Question

在此代码中，函数 addgrids3d 不起作用。它说，“找不到 addgrids3d 函数”。这里可能是什么问题？

EOS <- read.table(file = "clipboard", 
                      sep = "\t", header=TRUE)
install.packages("scatterplot3d") # Install
library("scatterplot3d") # load
EOS$Load[which(EOS$Load == 2)] <- '2N'
EOS$Load[which(EOS$Load == 7)] <- '7N'
shapes = c(14:15)
shapes <- shapes[as.factor(EOS$Load)]
s3d <- scatterplot3d(EOS[,1:3],angle = 40, cex.lab=1, cex.axis = .5,pch = shapes, color = "steelblue", grid = TRUE, type = "h", col.axis = "blue", col.grid = "light grey")
addgrids3d(EOS[, 1:3], grid = c("xy", "xz", "yz"))
my.lmEOS <- lm(EOS$Compression ~ EOS$Speed+EOS$Stress)
s3d$plane3d(my.lmEOS, col = "red", )
summary(my.lmEOS)