在 fields 包中的 drape.plot 下面绘制 image.plot ？

问题描述

我想知道是否有任何方法可以在 drape.plot 下方（在空白 x~y 空间上）绘制 2D image.plot() - 或者在该空白空间的任何图形特征（例如从TPS 估计）。本质上，结合两个数字但在 drape.plot 透视图上。示例代码如下：

#create data
a = rnorm(100,mean = 0,sd = 1)
b = rnorm(100,sd = 1)
x = cbind(a,b)
matrix = as.matrix(x,ncol=2)
c = rnorm(100,mean = 0.1,sd = 0.05)
c = c(c)

library(fields)
#fit thin plate spline
fit = Tps(matrix,c)
#generate surface
out = predictSurface(fit)
#2D plot of tps
image.plot(out,xlim = c(-5,5),ylim = c(-5,5))
#3D plot of tps
drape.plot(out,zlab = "",xlab = "",ylab = "",zlim = c(-0.25,0.25),horiz = T,Box = T,5))

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

r r surface