如何在r中输入时间序列列表到相关函数中?

问题描述 投票:0回答:1

我有一个 列表时间序列:

ts1 <- ts(seq(1,12), start=c(2019,01), frequency=12)
ts2 <- ts(seq(12,26), start=c(2019,01), frequency=12)
ts3 <- ts(seq(24,30),start=c(2019,01), frequency=12)
list_ts <- list()
list_ts[["a"]] <- ts1
list_ts[["b"]] <- ts2
list_ts[["c"]] <- ts3

我想获得与指定每个元素时相同格式的东西。

ts.intersect(ts1,ts2,ts3)

我试过这样:

lapply(list_ts, ts.intersect)

但输出不是一个矩阵 时间序列 根据我的需求提前谢谢你:)

r
1个回答
1
投票

我们可以用 do.call

do.call(ts.intersect, list_ts)
#         a  b  c
#Jan 2019 1 12 24
#Feb 2019 2 13 25
#Mar 2019 3 14 26
#Apr 2019 4 15 27
#May 2019 5 16 28
#Jun 2019 6 17 29
#Jul 2019 7 18 30

或与 Reduce

Reduce(ts.intersect, list_ts)

或使用 reducepurrr

library(purrr)
reduce(list_ts, ts.intersect)
© www.soinside.com 2019 - 2024. All rights reserved.