[英]Append a time series to a list of time series in r
我有產品清單:根據df CAT屬於不同類別的P1、P2、P3、P4 。 對於每個產品,都有兩個相關的時間序列: 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不會以相同的格式附加
欣賞:)
我們可以用
out <- lapply(Map(c, ofs, sales), function(x) do.call(ts.intersect, x))
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.