从数据框中取出特定的 tsibble 数据

Question

我正在尝试解决一个非常简单的问题。我想从 tsibble.

中取出特定季度的数据

我有这个代码，

library(tidyverse) 
library(tsibble) 

x <- tsibble(
      qtr = rep(yearquarter("2010 Q1") + 0:9, 3),
      group = rep(c("x", "y", "z"), each = 10),
      value = rnorm(30),
      key = group
    )

现在我想对 2010 年第一季度的数据进行子集化，

x %>% filter(qtr == "2010 Q1")

我收到这条错误消息，

> x %>% filter(qtr == "2010 Q1")
Error in charToDate(x) : 
  character string is not in a standard unambiguous format

我在这里做错了什么？

Answer 1

正如我们使用 "2010 Q1"

时的错误信息所说

character string is not in a standard unambiguous format

因此我们需要在过滤之前将"2010 Q1"转换为标准格式，因此我们使用了yearquarter

library(tidyverse) 
library(tsibble) 
x %>% filter(qtr == yearquarter("2010 Q1"))

# A tsibble: 3 x 3 [1Q]
# Key:       group [3]
      qtr group value
    <qtr> <chr> <dbl>
1 2010 Q1 x     1.51 
2 2010 Q1 y     0.919
3 2010 Q1 z     1.36

从数据框中取出特定的 tsibble 数据

Taking particular tsibble data out of the data frame

r

tidyverse

tsibble