简单的R 3d插值/表面图使用pycnophyctic插值

Question

我想从一组点（x，y，z）创建一个三维表面，就像这个场景simple R 3d interpolation/surface plot一样，但是使用一种叫做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

我使用了＆＃34; akima＆＃34; package来插入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()