Как сделать plot3d ось оси той же длины?

Question

Извините, я наконец нашел ответ. Вот оригинальный вопрос:

Я написал код, в котором поверхность появляется и лежит в окне plot3d. Значения My Surface x имеют длину 2427 метров (от 600000 до 602427), длина 1774 метров для моих у (от 5600000 до 5601774), а у моих z длина 345 метров (от 0 до 345).

Поскольку поле plot3d является квадратом, поверхность, которая лежит в коробке, не отражает реалистичный масштаб и форму того, что я хочу представлять. Есть ли способ сделать ось коробки равной одной и той же длине, скажем, что все 3 оси имеют длину 2427 метров, где я могу выбрать минимальное и максимальное значение каждой оси?

Кроме того, при построении только поверхности 3d масштабирование оси представляет собой реалистичную форму!

Вот мой код:

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])