可以使用
function na.approx(object, ...) or
function na.spline(object, ...)
http://rss.acs.unt.edu/Rdoc/library/zoo/html/na.approx.html
不过顾名思义(Interpolation),你的数据格式似m[,1],是会产生错误的,
要类似m[,4],才能插值.
example:
set.seed(12)
m <- matrix(runif(16, 0, 100), nrow = 4)
missing_values <- sample(16, 7)
m[missing_values] <- NA
m
# [,1] [,2] [,3] [,4]
#[1,] NA 16.934812 NA 37.62485
#[2,] NA 3.389562 NA 38.08122
#[3,] NA 17.878500 39.26972 NA
#[4,] 26.93819 NA 81.38806 43.93343
na.approx(m[,1])
#Error in approx(x[!na], y[!na], xout, ...) :
# need at least two non-NA values to interpolate
na.approx(m[,2])
#[1] 16.934812 3.389562 17.878500
na.approx(m[,3])
#[1] 39.26972 81.38806
na.approx(m[,4])
#[1] 37.62485 38.08122 41.00733 43.93343