r - 如何将 as_tibble() 格式的时间序列数据转换为 R 中的 as_tsibble() 格式？

Question

到目前为止，我得到的结果如下，这是一种“tibble”格式。

但是，由于这是一组时间序列，我希望将此结果x转换为“tsibble”格式的后记。

任何人都知道我需要做什么进一步的步骤？

我尝试使用

x <- function_name(n.ts = 3, freq = 12, nComp = 2, n = 120,output_format = "list")
as_tsibble(x)

错误说

另一个尝试和错误 内容应显示类似于此的内容

Answer 1

'x' 是list具有多个组件的。我们可以遍历listwith map，提取 'x' 组件并将其转换为tsibble

library(dplyr)
library(purrr)
x1 <- map(x,  ~ as_tsibble(.x$x))
x1
#$N1
# A tsibble: 120 x 2 [1M]
#      index value
#      <mth> <dbl>
# 1 0001 Jan  186.
# 2 0001 Feb  184.
# 3 0001 Mar  189.
# 4 0001 Apr  188.
# 5 0001 May  193.
# 6 0001 Jun  189.
# 7 0001 Jul  192.
# 8 0001 Aug  194.
# 9 0001 Sep  194.
#10 0001 Oct  196.
# … with 110 more rows

#$N2
# A tsibble: 120 x 2 [1M]
#      index value
#      <mth> <dbl>
# 1 0001 Jan  18.4
# 2 0001 Feb  16.0
# 3 0001 Mar  16.9
# ...

这里，索引部分是由列名（'Month'）创建的，由于没有关于'year'的信息，它以'0001'开头

数据

library(gratis)
x <- generate_ts(n.ts = 3, freq = 12, nComp = 2, n = 120)