R腳本 - 通過插入幾個X，Y，Z點的3D表面

Question

我想使用R並讓它消耗我擁有的少量X，Y，Z點數據（圖像中的黑點）和然後生成300x300 XYZ點，這些點代表圖像中看到的着色的3D曲面圖。我想輸出簡單的三列，X，Y和Z點。我試過以下，但它似乎並沒有生成我需要的數據。我需要X，Y，Z點在另一個程序（spotfire）中生成圖像，並且不需要在R中做任何圖形。任何幫助將不勝感激！謝謝。

3D Surface Plot with Points

> require(akima) 
> points = read.csv("points.csv", header = TRUE) 
> print(points) 
     x  y z 
1 400.01 650.01 2.70 
2 150.00 780.00 3.40 
3 250.00 780.00 3.10 
4 800.00 700.00 1.00 
5 1000.00 680.00 1.00 
6 1500.00 680.00 0.75 
7 1700.00 700.00 1.00 
8 1700.00 790.00 1.25 
9 1600.00 1000.00 1.20 
10 1750.00 1000.00 1.00 
11 1800.00 1650.00 0.60 
12 1400.00 1650.00 0.65 
13 1000.00 1650.00 0.80 
14 500.00 1650.00 0.90 
15 150.00 1650.00 1.30 
16 150.00 1050.00 3.90 
17 500.00 1000.00 3.00 
> s=interp(points$x,points$y,points$z,xo=seq(min(points$x),max(points$x),length=300),yo=seq(min(points$y),max(points$y),length=300)) 

Answer 1

這對我的作品。我認爲你所需要做的就是將最終名單變成一個矩陣。

s1 <- interp2xyz(s) 
dim(s1) 
# [1] 90000  3 

一分不少的生成Z值

sum(is.na(s1[,3])) 
# [1] 4897 

您可以選擇排除那些點，或使用外插一個NA值。