Assigning Dates to Fiscal Year

by

Here are some alternatives. They all return numeric years but if you really need a string starting with FY then use paste0("FY", result) where result is any of the results below. They all support vector input, i.e. the input dates can be a vector.

1) zoo::as.yearmon The zoo package has a "yearmon" class which represents year/months as year + fraction where fraction = 0 for jan, 1/12 for feb, 2/12 for march and so on.

Using that this one-liner will do it. It subtracts 4/12 (since April is end of year) and adds 1 (i.e. add one year). Then to get the year take the integer part:

library(zoo)

as.integer(as.yearmon(dates) - 4/12 + 1)
## [1] 2016 2015 2015

2) POSIXlt Here is a solution that does not use any packages. Convert the dates to POSIXlt class. It’s mo component represents Jan as 0, Feb as 1, etc. so if we are May or later (mo is 4 or more) then the fiscal year is the following calendar year otherwise it is the current calendar year. The year component of POSIXlt objects is the number of years since 1900 so add the year to 1900 plus 1 if we are at May or later:

lt <- as.POSIXlt(dates)
lt$year + (lt$mo >= 4) + 1900
## [1] 2016 2015 2015

3) format Add the year to 1 if the month is greater than or equal to 5 (or to zero if not). This also uses no packages:

as.numeric(format(dates, "%Y")) + (format(dates, "%m") >= "05")
## [1] 2016 2015 2015

4) substr. We can extract the year using substr, convert to numeric and add 1 if the extracted month (also extracted usingsubstr) is “05” or greater.; Again no packages are used.

as.numeric(substr(dates, 1, 4)) + (substr(dates, 6, 7) >= "05")
## [1] 2016 2015 2015

5) read.table This also uses no packages.

with(read.table(text = format(dates), sep = "-"), V1 + (V2 >= 5))
## [1] 2016 2015 2015

Note: We used this as the input dates:

dates <- as.Date(c("2015-05-01", "2015-04-30", "2014-09-01"))

More Related Contents:

  1. How to aggregate a dataframe by week?
  2. Summarizing multiple columns with dplyr? [duplicate]
  3. Relative frequencies / proportions with dplyr
  4. Unique rows, considering two columns, in R, without order
  5. standard evaluation in dplyr: summarise a variable given as a character string
  6. Use variable names in functions of dplyr
  7. Create new variables with mutate_at while keeping the original ones
  8. How to interpret dplyr message `summarise()` regrouping output by ‘x’ (override with `.groups` argument)?
  9. Finding percentage in a sub-group using group_by and summarise
  10. Make a group_indices based on several columns
  11. Using spread with duplicate identifiers for rows
  12. filter for complete cases in data.frame using dplyr (case-wise deletion)
  13. dplyr filter with condition on multiple columns
  14. dplyr – using column names as function arguments
  15. Fill missing dates by group
  16. dplyr – filter by group size
  17. dplyr::group_by_ with character string input of several variable names
  18. How to parametrize function calls in dplyr 0.7?
  19. filter function in dplyr errors: object ‘name’ not found
  20. Create a ranking variable with dplyr?
  21. How to pass dynamic column names in dplyr into custom function?
  22. R – Group by variable and then assign a unique ID [duplicate]
  23. R sum a variable by two groups [duplicate]
  24. Join two data frames in R based on closest timestamp
  25. data.table row-wise sum, mean, min, max like dplyr?
  26. Update/Replace Values in Dataframe with Tidyverse Join
  27. dplyr: put count occurrences into new variable [duplicate]
  28. Add row in each group using dplyr and add_row()
  29. How to replace certain values in a specific rows and columns with NA in R?
  30. Create a Vector of All Days Between Two Dates

Leave a Comment