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

从数据帧中取出特定的倾斜数据

1 个答案: