使用 as.yearqtr 转换 YYYYQ

Question

我有一个 YYYYQ 格式的字符字段（例如 20124、20131 等），我想使用 zoo 包中的 as.yearqtr 将其转换为字段格式。

感谢您的帮助！

Answer 1

1)一定要先转换成字符:

library(zoo)

x <- c(20124, 20131)

as.yearqtr(format(x), "%Y%q")
## [1] "2012 Q4" "2013 Q1"

2) 这也行。它将数字转换为年份 + 年份的分数：

as.yearqtr(x %/% 10 + ((x %% 10) - 1)/4)
## [1] "2012 Q4" "2013 Q1"

3) 首先将数字转换为 yyyy-0q:

as.yearqtr(sub("(.)$", "-0\1", x))
## [1] "2012 Q4" "2013 Q1"

Convert YYYYQ using as.yearqtr