将时间序列附加到 r 中的时间序列列表

Question

我有产品列表：P1、P2、P3、P4 属于不同类别，根据 df CAT。 每个产品都有两个相关的时间序列： ts_sales 和 ts_ofs（代表销售和缺货）。

我想将 P1 的销售时间序列与 P2、P3（属于同一类别）的缺货关联起来

这段代码展示了我如何将销售时间序列与同一类别的产品关联起来：

rm(list=ls())
CAT <- data.frame(PROD = c('P1','P2','P3','P4'),CAT = c('C1','C1','C1','C2'))
ts_sales <- list()
ts_sales$'P1' <- ts(runif(10,0,1), start=c(2019,1), frequency = 12)
ts_sales$'P2' <- ts(runif(10,0,1), start=c(2019,1), frequency = 12)
ts_sales$'P3' <- ts(runif(10,0,1), start=c(2019,1), frequency = 12)
ts_sales$'P4' <- ts(runif(10,0,1), start=c(2019,1), frequency = 12)
ts_ofs <- list()
ts_ofs$'P1' <- ts(runif(10,0,1), start=c(2019,1), frequency = 12)
ts_ofs$'P2' <- ts(runif(10,0,1), start=c(2019,1), frequency = 12)
ts_ofs$'P3' <- ts(runif(10,0,1), start=c(2019,1), frequency = 12)
ts_ofs$'P4' <- ts(runif(10,0,1), start=c(2019,1), frequency = 12)

sales <- with(CAT,split(as.character(PROD), CAT))
sales <-  lapply(sales, function(x) ts_sales[x])
ofs <- with(CAT,split(as.character(PROD), CAT))
ofs <-  lapply(ofs, function(x) ts_ofs[x])
cor(do.call(ts.intersect, sales$C1))

我试过了：

c(ofs$C1,sales$C1$P1)

但 sales$C1$P1 不会以相同的格式附加

欣赏:)

Answer 1

我们可以使用

out <- lapply(Map(c, ofs, sales), function(x) do.call(ts.intersect, x))