微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

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

如何解决在 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 举报,一经查实,本站将立刻删除。