用as.yearqtr转换YYYYQ

Question

我有一个带有YYYYQ格式的char字段(例如，20124、20131等)，我希望使用动物园包中的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)，这将首先将数字转换为yyy-0q：

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