R使用以前的数字将不规则的时间间隔变成规则的时间间隔

Question

我有这样一个不规则的时间间隔

df=data.frame(Date=c("2013-01-08","2013-01-11","2013-01-13","2013-01-21","2013-02-06"), runningtotal=c(800,910,1060,1210,660)

我通过zoo对象发现它可以以固定的时间间隔合并，并填写0作为缺失值。但是，我需要填写以前的值，除了在月份开始用 0 填充它。所以最终输出是这样的：

date       runningtotal
2013-01-01 0
2013-01-02 0
...
2013-01-08 800
2013-01-09 800
2013-01-10 800
2013-01-11 910
2013-01-12 910
2013-01-13 1060
...
2013-02-01 0

另外，为了预测目的而填写这样的值是否有意义？

谢谢。

Answer 1

使用constant 方法尝试approxfun。我没有lubridate，只处理常规的Date 对象。例如：

  df<-data.frame(Date=c("2013-01-08","2013-01-11","2013-01-13","2013-01-21","2013-02-06"), runningtotal=c(800,910,1060,1210,660))
  df$Date<-as.Date(as.character(df$Date))
  #create some new dates
  newDates<-seq(df$Date[1],df$Date[5],length.out=10)  
  intfun<-approxfun(df$Date,df$runningtotal,method="constant",yleft=0,yright=0)
  data.frame(newDates,intfun(newDates))

Answer 2

我会使用来自zoo 包的na.locf。但是你应该在应用之前准备好数据。

## generate a vector of dates  
mm <- min(DF$Date)
day(mm) <- 1
seq_dates <- seq.POSIXt(mm,max(DF$Date),by='days')
## add zeros valus for the beging of month
DF <- rbind(DF,data.frame(Date=seq_dates[day(seq_dates)==1],runningtotal=0))
library(zoo)
## merge with the sequence of dates , and apply na.locf for previous values.
na.locf(merge(seq_dates,DF,by=1,all.x=TRUE))

这个想法是应用na.locf，用之前的非缺失值改变缺失值。将您的数据与一系列日期（从第一个月到日期结束）合并将插入缺失值。