时间序列插值(by R)

#插值通过imputeTS包
library(imputeTS)
data1<- read.table('E:\\data\\timeseries.txt',sep = "\t",encoding="UTF-8",header = T)
#判断data1的第2列哪一行是NA值
which(is.na(data1[,2]))
#对data1的第2列到第6列进行线性插值
#option ="linear"为线性插值，"spline"为样条插值，"stine"为Stineman插值，具体查看?na_interpolation(函数帮助)
data2<-na_interpolation(data1[,2:6],option = "linear")
#判断data2是否有NA值
which(is.na(data2))
#导出
write.table(data2,file="E:\\output\\序列插值.txt",sep = "\t",row.names=FALSE,col.names=TRUE)