Question

我有一套24组（分层）时间序列，据说可以运行3年以上，我想看一下月度销售情况，但事实证明其中有一些缺少观察，例如。

getCounts(Shop1, ...)
2011-01 2011-02 2011-03 2011-04 2011-05 2011-06 2011-07 2011-08 2011-09 2011-10 2011-11 2011-12 2012-02 2012-03 2012-04 2012-05 2012-06 2012-07 2012-08 2012-09 2012-10 2012-11 
 10      22      10      12      36      31      25      19       7       7       7       5       1       9       9      11      10      16      25       3       2       5

错过了2012年1月的观察结果，并于2012年11月结束，尽管它应该运行到2013年12月。

getCounts使用命令

with(myDF, tapply(varName, substr(dateName, 1, 7), sum))

获取每月计数。

我想在时间序列的中间和结尾处用NA替换缺失的观察结果，这样我的所有时间序列都具有相同的观察数量，如果有任何＆＃34;漏洞和＃34;它们将在情节中可见。

有人可以帮我这么做吗？

谢谢！

编辑：我的首选输出是这样的：

      Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
2011   1  NA   2   3   4   5   6  NA   7   8   9  10
2012   2   3   4   5   6  NA  NA  NA  NA  NA  NA  NA

每个NA都在替换缺失的观察结果。

编辑2：getCounts（）看起来像这样：

getCounts <- function(dataObject, dateName, varName){ 
dataNameString <- deparse(substitute(dataObject))   
countsStr <- paste0("with(", dataNameString,", tapply(", varName, ", substr(", dateName, ", 1, 7), sum))")
counts <- eval(parse(text = countsStr))
return(counts)
}

这就是输入：

structure(c(10, 22, 10, 12, 36, 31, 25, 19, 7, 7, 7, 5, 1, 9, 
9, 11, 10, 16, 25, 3, 2, 5), .Dim = 22L, .Dimnames = list(c("2011-01", 
"2011-02", "2011-03", "2011-04", "2011-05", "2011-06", "2011-07", 
"2011-08", "2011-09", "2011-10", "2011-11", "2011-12", "2012-02", 
"2012-03", "2012-04", "2012-05", "2012-06", "2012-07", "2012-08", 
"2012-09", "2012-10", "2012-11")))

Answer 1

试试这个

df <- data.frame(Year = substr(names(x), 1, 4),
                 Month = factor(month.abb[as.numeric(substr(names(x), 6, 7))], 
                         levels = month.abb),
                 Value = x)

library(tidyr)
spread(df, Month, Value)
#   Year Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
# 1 2011  10  22  10  12  36  31  25  19   7   7   7   5
# 2 2012  NA   1   9   9  11  10  16  25   3   2   5  NA

数据

x <- structure(c(10, 22, 10, 12, 36, 31, 25, 19, 7, 7, 7, 5, 1, 9, 9, 11, 10, 16, 25, 3, 2, 5), .Dim = 22L, .Dimnames = list(c("2011-01", "2011-02", "2011-03", "2011-04", "2011-05", "2011-06", "2011-07", "2011-08", "2011-09", "2011-10", "2011-11", "2011-12", "2012-02", "2012-03", "2012-04", "2012-05", "2012-06", "2012-07", "2012-08", "2012-09", "2012-10", "2012-11")))

R时间序列 - 识别缺失的观测值（时间戳）并插入NA以创建给定长度的时间序列

1 个答案: