r - 将日期转换为年季度格式

Question

我有一堆格式为 yyyy-mm-dd 的日期，我想将它们转换为 yyyy-q 格式，其中 qq 是一年中的季度(因此第 1、2、3 个月映射到 q=1，第 4、5、6 个月映射到 q=2，等等)。我使用以下函数来完成此操作:

get_month <- function(d) { return(as.numeric(format(d, "%m")))}
get_qtr <- function(d) {
f <- function(m) {
    if (m %in% c(1,2,3)) { return(1) }
    else if (m %in% c(4,5,6)) { return(2) }
    else if (m %in% c(7,8,9)) { return(3) }
    else if (m %in% c(10,11,12)) { return(4) }
}
m <- get_month(d)
r <- sapply(m, f)
return(r)
}

但是，这非常慢。有更快的方法吗？

Answer 1

您可以在 zoo 包中使用 yearqtr。

> as.yearqtr(Sys.Date())
[1] "2012 Q4"