r - 将几个月的零需求添加到动物园时间序列

Question

我有一些间歇性需求数据，其中仅包括存在需求的线路。我通过 read.csv 引入它，我的 2 列是日期(作为日期)和数量(作为整数)。然后我将其转换为动物园系列，并将每日需求合并为每月需求。我的最终输出是一个动物园系列，日期是当月的第一天和该月的总需求。

我的问题是这个动物园系列缺少需求为零的月份，我需要这些来正确预测间歇性需求。

例如:我在 2013 年 1 月 1 日有数量 2，然后下一行是 2013 年 10 月 1 日的数量 3。我需要将数量零添加到 2013-02-01 到 2013-09-01。

Date <- c('1/1/2013','10/1/2013','11/1/2013')
Quantity <- c('2','3','6')

Date <- as.Date(Date, "%m/%d/%Y")

df <- data.frame(Date, Quantity)
df <- read.zoo(df)
df

动物园系列输出:

2013-01-01  2013-10-01  2013-11-01
         2           3           6

Answer 1

因为“df”是 zoo对象，您可以使用 merge.zoo和它的 fill争论。当前数据集与空 zoo 合并包含所有所需日期的对象。

tt <- seq(min(Date), max(Date), "month")
merge(df, zoo(, tt), fill = 0)

# 2013-01-01 2013-02-01 2013-03-01 2013-04-01 2013-05-01 2013-06-01 2013-07-01 2013-08-01 2013-09-01 2013-10-01 2013-11-01 
#          2          0          0          0          0          0          0          0          0          3          6 

有关更多示例，请参阅 ?merge.zoo (“将不规则系列扩展为规则系列”)。