使用as.yearqtr转换YYYYQ

Question

我有一个格式为YYYYQ的char字段（例如，20124,20111等），我想通过使用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-::

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