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

编程问答 2022-12-23

问题描述

在这段代码中，函数 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 (将#修改为@）

rrscatterplot3d