将日历季度转变为财务季度

Question

我正在使用包含每个日历季度产品交易数量的日期框架 (INPUT)。第一列 (DATE) 包含格式为“2016 Q2”的日历季度。我想将此日期转换为财务季度格式，例如“2016/17 Q1”。财政年度从 4 月 1 日开始。

我想出了以下代码来完成这项工作，但我想知道是否有一个公式或更简洁的代码可以使用。

INPUT$FY_Date=character(nrow(INPUT))

for (i in 1:nrow(INPUT)) {
    INPUT$FY_Date[i]= if(substr(INPUT$DATE[i],7,7)==1)  paste(as.numeric(substr(INPUT$DATE[i],1,4))-1,"/",substr(INPUT$DATE[i],3,4)," Q4",sep="") else 

    paste(substr(INPUT$DATE[i],1,4),"/",  formatC(as.numeric(substr(INPUT$DATE[i],3,4))+1,width=2,format="d",flag=0)," Q",as.numeric(substr(INPUT$DATE[i],7,7))-1,sep="")
}     

我找不到任何以前的相关帖子，因此我将不胜感激。

Answer 1

使用 zoo 中定义的 "yearqtr" 类，我们可以在两行代码中完成。

转换为"yearqtr"。 "yearqtr" 类使用 year + (qtr-1)/4 的内部表示，其中 qtr 是 1、2、3 或 4，因此添加 3/4 会将其转移到年末年度和财政季度。然后在代码的最后一行as.integer 将提取年终年份。 format 函数可用于获取其余部分，其中%y 表示 2 位数年份，%q 表示季度。

library(zoo)

# test input
yq <- c("2016 Q2", "2016 Q3", "2016 Q4", "2017 Q1")

fyq <- as.yearqtr(yq, format = "%Y Q%q") + 3/4
paste0(as.integer(fyq) - 1, format(fyq, "/%y Q%q"))

给予：

[1] "2016/17 Q1" "2016/17 Q2" "2016/17 Q3" "2016/17 Q4"

请注意，如果您不需要问题中显示的特定格式，您可以使用format(fyq) 代替最后一行或format(fyq, "%Y Q%q")。

更新：小幅代码改进。