r - 从数据框中取出特定的 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"

字符串不是标准的明确格式

因此我们需要在过滤之前转换"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