我如何在不使用 as.Date 函数的情况下从此 tibble 获取 tsibble？

Question

我需要将几个“tibble”转换成“tsibble”。

这里是一个简单的例子：

require(tidyverse)
require(lubridate)

time_1 <- c(ymd_hms('20210101 000000'),
            ymd_hms('20210101 080000'),
            ymd_hms('20210101 160000'),
            # ymd_hms('20210102 000000'),
            ymd_hms('20210102 080000'),
            ymd_hms('20210102 160000'))

df_1 <- tibble(time_1, y=rnorm(5))

df_1 %>% 
  as_tsibble(index=time_1)

这段代码按预期工作。 但是，如果日期都是午夜，则此代码会引发错误：

time_2 <- c(ymd_hms('20210101 000000'),
            ymd_hms('20210102 000000'),
            ymd_hms('20210103 000000'),
            # ymd_hms('20210104 000000'),
            ymd_hms('20210105 000000'),
            ymd_hms('20210106 000000'))

df_2 <- tibble(time_2, y=rnorm(5))

df_2 %>% 
  as_tsibble(index=time_2)

我不想用这种方式解决这个问题，因为as.Date 函数改变了列类型。

df_2 %>% 
  mutate(time_2=as.Date(time_2)) %>% 
  as_tsibble(index=time_2)

我也不想以这种方式解决问题，因为在将 tibble 转换为 tsibble 后，我需要应用 fill_gaps 函数，该函数不会在第二种情况下创建 ymd_hms('20210104 000000')。

df_2 %>% 
  as_tsibble(index=time_2, regular=FALSE)

这是一个错误吗？

谢谢。

Answer 1

tsibble 的FAQ 中解释了这种行为。

每天午夜测量的基本上是次日数据 (ymd_hms()) 不一定有 1 天（24 小时）的间隔。考虑到由于您所在时区的夏令时，有些日子会发生变化，因此午夜和第二天午夜之间的小时数可能是 23 或 25 小时。

如果您使用的是每天测量的数据，则应使用具有ymd() 精度的日期。如果愿意，您可以使用 as_datetime() 将其转换回日期时间。

我个人认为这不应该产生错误，但是如果它确实会简单得多。也许这里的适当间隔是 1 小时或 30 分钟（或任何适合指定时区中时区转换的时间）。