如何创建R中缺少值的曲面图?
我有一个示例5x5矩阵,其值如下:如何创建R中缺少值的曲面图?,r,plot,surface,R,Plot,Surface,我有一个示例5x5矩阵,其值如下: dat <- matrix(seq(1,13,0.5), nrow=5, byrow=TRUE) dat[seq(2,25,2)] <- NA 1 | NA | 2 | NA | 3 NA | 4 | NA | 5 | NA 6 | NA | 7 | NA | 8 NA | 9 | NA | 10 | NA 11 | NA | 12 | NA | 13 dat虽然以前可能有人问过这个问题,但我找不到一个很好的例子来说明这种情况
dat <- matrix(seq(1,13,0.5), nrow=5, byrow=TRUE)
dat[seq(2,25,2)] <- NA
1 | NA | 2 | NA | 3
NA | 4 | NA | 5 | NA
6 | NA | 7 | NA | 8
NA | 9 | NA | 10 | NA
11 | NA | 12 | NA | 13
dat虽然以前可能有人问过这个问题,但我找不到一个很好的例子来说明这种情况。试试这个,它会给出一个结果,然后你可以传递给persp
,image
等
#install.packages("akima")
library(akima)
nas <- !is.na(dat)
interp(
row(dat)[nas], #row index - 'x' values
col(dat)[nas], #col index - 'y' values
dat[nas], #height data - 'z' values
xo=seq(1,nrow(dat)), #'x' values for output
yo=seq(1,ncol(dat)) #'y' values for output
)
#$x
#[1] 1 2 3 4 5
#
#$y
#[1] 1 2 3 4 5
#
#$z
# [,1] [,2] [,3] [,4] [,5]
#[1,] 1.0 1.5 2.0 2.5 3.0
#[2,] 3.5 4.0 4.5 5.0 5.5
#[3,] 6.0 6.5 7.0 7.5 8.0
#[4,] 8.5 9.0 9.5 10.0 10.5
#[5,] 11.0 11.5 12.0 12.5 13.0
#安装程序包(“akima”)
图书馆(秋马)
从很多方面来说。以前有人问过,也有人回答过,所以你应该在搜索时表现出一些努力。(如果你提交了MWE,我可能会给出一个基于的答案。)