Question

对不起，我终于找到了答案。这是最初的问题：

我写了一个代码，表面出现在plot3d框中。我的Surface x值长2427米（范围从600000到602427），我的y长1774米（范围从5600000到5601774），而我的z长度为345米（范围从0到345）。

由于plot3d框是一个平方，所以放在框中的表面并不代表我想要表达的真实比例和形式。有没有办法让箱子轴的长度相同，比如所有3轴的长度为2427米，我可以选择每个轴的最小值和最大值？

另外，当仅绘制surface3d时，轴缩放似乎代表了逼真的形式！

这是我的代码：

drilling_trial<- read.table("DRILLING_TRIAL.csv",header=TRUE,sep=",")
all_pit_data<- read.table("ALL_PIT_DATA.csv",header=TRUE,sep=",")
require("akima")
s <- with(all_pit_data,interp(x1,y1,z1))
library("rgl")
plot3d(drilling_trial$x,drilling_trial$y,drilling_trial$z,
       col = drilling_trial$d,
       add = FALSE,
       axes = TRUE,
       bbox = TRUE,
       xlab="x",
       ylab="y",
       zlab="z")
cols <- heat.colors(462)
surface3d(s$x,s$y,s$z,
          color=cols[s$z])

由于

Answer 1

对不起伙计们...我在编程方面很陌生，我没想到第一个！这就是我做的！

干杯

drilling_trial<- read.table("DRILLING_TRIAL.csv",header=TRUE,sep=",")
all_pit_data<- read.table("ALL_PIT_DATA.csv",header=TRUE,sep=",")
require("akima")
s <- with(all_pit_data,interp(x1,y1,z1))
library("rgl")
plot3d(drilling_trial$x,drilling_trial$y,drilling_trial$z, 
       col = drilling_trial$d, 
       xlim = c(611500,614000), 
       ylim = c(5420000,5422500), 
       zlim = c(0,2500), 
       add = FALSE, 
       axes = TRUE, 
       bbox = TRUE, 
       xlab="x", 
       ylab="y", 
       zlab="z")
cols <- heat.colors(462)
surface3d(s$x,s$y,s$z,
      color=cols[s$z])

如何使plot3d盒轴长度相同？

1 个答案: