主要是通过R语言,对日期数据进行处理,并补全缺失数据
rawdata<- read.csv("C:/Users/li/Desktop/ss.csv",fill=F)
#提取数据 ss1,并组合数据-------------------------------
ts1<-rawdata$ts1
ts11<-as.Date(ts1,'%Y/%m/%d')
false<-is.na(ts11)
ts21<-ts11[!false]
ss1<-rawdata$SS1
ss1<-ss1[!false]
library(zoo)
data1<-zoo(ss1,ts21)
#补全不规则数据(时间的缺失和缺失值)
date1<-zoo(,seq(start(data1),end(data1),'day'))
datanew1<-merge(data1,date1)
datanew1[is.na(datanew1)]<-median(datanew1,na.rm = T)
#提取数据 ss2
1