将 YEARQT 格式的字符转换为 R 中的季度 "date"

Question

Date
1960Q1
1960Q2
1960Q3
1960Q4
1961Q1
1961Q2

我有以下data.frame。我正在尝试将第一列放入一个 tsibble 中。现在我有一个问题。我怎样才能切换到一个日期，以便它可以被视为一个季度。

我尝试 zoo 使用

DATA.QTR <- DATA.QTR %>%   mutate(QUARTER = as.Date(as.yearqtr(Date, "%Y %Q")))

但它没有读取它。

Answer 1

你快明白了！格式需要稍微调整一下。

%YQ%q：%Y 代表年份，Q 代表初始格式中的 Q，%q 代表季度。

代码

library(zoo)

DATA.QTR <- DATA.QTR %>% mutate(QUARTER = as.Date(as.yearqtr(format(Date), "%YQ%q")))

输出

> DATA.QTR
# A tibble: 6 x 2
  Date   QUARTER   
  <chr>  <date>    
1 1960Q1 1960-01-01
2 1960Q2 1960-04-01
3 1960Q3 1960-07-01
4 1960Q4 1960-10-01
5 1961Q1 1961-01-01
6 1961Q2 1961-04-01

数据

DATA.QTR <- structure(list(Date = c("1960Q1", "1960Q2", "1960Q3", "1960Q4", 
                                    "1961Q1", "1961Q2")), class = c("tbl_df", "tbl", "data.frame"
                                    ), row.names = c(NA, -6L))

将 YEARQT 格式的字符转换为 R 中的季度 "date"

Convert character in format YEARQT to a quarterly "date" in R

r

zoo

as.date

tsibble