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

Question

日期1960Q11960年第2季度1960年第三季度1960年第4季度1961Q11961Q2

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))