Question

我创建了一个函数，它将四分之一年格式的向量强制转换为日期向量。

.quarter_to_date(c("Q1/13","Q2/14"))
[1] "2013-03-01" "2014-06-01"

这是我的功能代码。

.quarter_to_date <-
  function(x){
    ll <- strsplit(gsub('Q([0-9])[/]([0-9]+)','\\1,\\2',x),',')

    res <- lapply(ll,function(x){
      m <- as.numeric(x[1])*3
      m <- ifelse(nchar(m)==1,paste0('0',m),as.character(m))
      as.Date(paste(x[2],m,'01',sep='-'),format='%y-%m-%d')

    })
    do.call(c,res)
  }

我的功能很好但看起来很长而且有点复杂。我认为这应该已经在其他软件包中完成了（例如lubridate）但是我无法找到它。有人可以帮我简化这段代码吗？

Answer 1

1）动物园包有一个NULL类。转换为那个，然后转换为"yearqtr" class：

"Date"

2）这也适用于获取当月的最后一天而不是第一天：

library(zoo)
x <- c("Q1/13","Q2/14")

as.Date(as.yearqtr(x, format = "Q%q/%y"))
## [1] "2013-01-01" "2014-04-01"

3）另外，请考虑不要直接转换为as.Date(as.yearqtr(x, format = "Q%q/%y"), frac = 1) ## [1] "2013-03-31" "2014-06-30"类，而只是直接使用"Date"类：

"yearqtr"

将季度/年份格式转换为日期

1 个答案: