如何解决在 R 中的 3D 散点图中添加网格
在这段代码中，函数 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[,grid = c("xy","xz","yz"))
my.lmEOS <- lm(EOS$Compression ~ EOS$Speed+EOS$Stress)
s3d$plane3d(my.lmEOS,col = "red",)
summary(my.lmEOS)
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
