6

I'll create several dates.

library(lubridate)
x <- ymd(c("2012-03-26", "2012-05-04", "2012-09-23", "2012-12-31"))

I can extract the year and quarter from these x values.

quarter(x, with_year = TRUE, fiscal_start = 10)

[1] 2012.2 2012.3 2012.4 2013.1

But I can't seem to extract just the fiscal year. This doesn't work, but what will?

year(x, with_year = TRUE, fiscal_start = 10)

I receive the following error message:

Error in year(x, with_year = TRUE, fiscal_start = 10) : unused arguments (with_year = TRUE, fiscal_start = 10)

OTStats
  • 1,820
  • 1
  • 13
  • 22
stackinator
  • 5,429
  • 8
  • 43
  • 84

2 Answers2

11

If you don't mind an additional step, you could then extract the first 4 characters of your quarters to get just the years.

library(lubridate)

x <- ymd(c("2012-03-26", "2012-05-04", "2012-09-23", "2012-12-31"))

q <- quarter(x, with_year = TRUE, fiscal_start = 10)
q
#> [1] 2012.2 2012.3 2012.4 2013.1

fy <- stringr::str_sub(q, 1, 4)
fy
#> [1] "2012" "2012" "2012" "2013"
camille
  • 16,432
  • 18
  • 38
  • 60
  • 1
    `quarter()` might behave differently than anticipated, see here https://github.com/tidyverse/lubridate/issues/682 – oatmilkyway Sep 05 '19 at 07:52
3
library(lubridate)
library(data.table)

fiscal_start_month = 10

x <- data.table(Dates = ymd(c("2012-03-26", "2012-05-04", "2012-09-23", "2012-12-31")))
x[, Fiscal_Year := ifelse(month(Dates) >= fiscal_start_month, year(Dates) + 1, year(Dates))]

This produces:

            Dates Fiscal_Year
1: 2012-03-26        2012
2: 2012-05-04        2012
3: 2012-09-23        2012
4: 2012-12-31        2013
dlxx
  • 31
  • 1