每个 商品 的我都有 时间序列 :
ts <- list()
ts[["p1"]] <- ts(seq(1,5), start=c(2019,1), frequency=12)
ts[["p2"]] <- ts(seq(1,5), start=c(2019,1), frequency=12)
ts[["p3"]] <- ts(seq(1,5), start=c(2019,1), frequency=12)
ts[["p4"]] <- ts(seq(1,5), start=c(2019,1), frequency=12)
ts[["p5"]] <- ts(seq(1,5), start=c(2019,1), frequency=12)
以及数据框中 和 类别 之间的关系
category <- c("cA","cA","cB","cB","cB")
product <- c("p1","p2","p3","p4","p5")
df_product_category <- data.frame(product,category)
我首先要为每个 类别 列表 :
list_category <- list(unique(df_product_category$category))
#this doesn´t work
然后我要为包含所有 产品的 类别 创建另一个 列表
list_category <- c("cA","cB")
一旦有了此列表,我需要为每个类别包含一个嵌套列表,其中包含该 category 中的每个 产品 strong>
list_product_category <- list()
list_product_category$'cA' <- c("p1","p2")
list_product_category$'cB' <- c("p2","p3","p4")
然后我要创建另一个列表 嵌套 : category-product-tslike 这是
>ts_list_product_category <- list()
ts_list_product_category[[cA]]$p1 <- ts[["p1"]]
ts_list_product_category[[cA]]$p2 <- ts[["p2"]]
ts_list_product_category[[cB]]$p3 <- ts[["p3"]]
ts_list_product_category[[cB]]$p4 <- ts[["p4"]]
ts_list_product_category[[cB]]$p5 <- ts[["p5"]]
预先感谢:)