0

我正在尝试使用长方体元素绘制 3d 网格(使用 R 的 Plot3D 包透明,但是我找不到好的解决方案。有什么建议吗?目标是使用函数 scatter3D 在 3d 散点图中添加 3D 网格。

在此处输入图像描述

4

1 回答 1

0

我编写了以下代码来解决我的问题。我使用了 Plot3D 包的函数“lines3D”。如果您能提供一种更优雅的方式来避免循环,我将不胜感激。

library(plot3D)
library(plot3Drgl)
x_grid <- y_grid  <- seq(0 , 1000, 200)
z_grid<-seq(0 , 500, 100)
# plot a 3-D mesh

M <- mesh(x_grid, y_grid, z_grid)
# plot result

dev.new()
scatter3D(M$x, M$y, M$z, pch = "-", cex = 0.1, colkey = FALSE,ticktype = "detailed")

for(i in 1:length(z_grid)){
for(j in 1:length(y_grid)){
lines3D(x = c(min(x_grid), max(x_grid)), y = c(y_grid[j],y_grid[j]), z = c(z_grid[i],z_grid[i]),colkey = FALSE,add=TRUE)}}

for(i in 1:length(x_grid)){
for(j in 1:length(y_grid)){
lines3D(x = c(x_grid[i],x_grid[i]), y = c(y_grid[j],y_grid[j]), z = c(min(z_grid), max(z_grid)),colkey = FALSE,add=TRUE)}}

for(i in 1:length(x_grid)){
for(j in 1:length(z_grid)){
lines3D(x = c(x_grid[i],x_grid[i]), y = c(min(y_grid), max(y_grid)), z = c(z_grid[j],z_grid[j]),colkey = FALSE,add=TRUE)}}

plotrgl(new = TRUE)

在此处输入图像描述

于 2021-09-14T12:21:59.997 回答