簡單R使用隱形內插插值的3D插值/曲面圖

Question

我想從一組點（x，y，z）像這個場景simple R 3d interpolation/surface plot創建一個3d曲面，但使用了一種特定的插值方法，稱爲pycnophylactic。這個方法有一個叫做pycno的包，但我是R新手，不能很好理解我該怎麼做。任何人都可以幫助我，提供一個樣本？我的數據是這樣的：

x <- c(-19.915909,-19.918794,-19.914678,-1.991492,-19.916232) 
y <- c(-43.942983,-43.943198,-43.940344,-43.942168,-43.939507) 
z <- c(7.910,5.693,6.958,7.116,790.843) 

在此先感謝！

Answer 1

我使用「akima」包插入z變量。以下是3D圖將如何查找您的x，y和z。

dens <- akima::interp(x,y,z, duplicate = "mean") 
plot_ly(x=dens$x,y=dens$y,z=dens$z) %>% add_surface()