Извлечь финансовый год из дат

Question

У меня есть несколько переменных, которые я собираюсь упорядочить по финансовым годам (с 1 апреля по 31 марта).

library(lubridate)
StartDate <- ymd(c("2017-03-26", "2018-07-04", "2019-02-23", "2010-10-31", "1989-06-30"))

Мне удалось извлечь год и квартал из этих дат, указав фискальное начало как месяц 4, с использованием функции четверти lubridates. Но я хочу, чтобы переменная финансового года была в формате 2017/18, 2018/19 и т. Д. c.

Я также нашла функцию date2fy, которая работает:

date2fy(StartDate)

но по умолчанию это австралийский финансовый год, который длится с 1 июля по 30 июня, и я не могу понять, как изменить его на 1 апреля.

Я написал ниже, и он работает, но Есть ли лучший / короткий способ сделать это?

DEP$Start_Fin_Year <- as.numeric(format(DEP$StartDate, "%Y")) - (format(DEP$StartDate, "%m") <= "03")
library(stringr)
DEP$Start_Fin_Year2 <- str_sub(DEP$Start_Fin_Year,start=-2)
DEP$Start_Fin_Year2 <- as.numeric(DEP$Start_Fin_Year2)
DEP$Start_Fin_Year3 <- (DEP$Start_Fin_Year2 + 1)
DEP$Start_Fin_Year4 <- paste0(DEP$Start_Fin_Year, "/", DEP$Start_Fin_Year3)

Answer 1

tibble::tibble(StartDate = StartDate) %>% 
  dplyr::mutate(finstart = ymd(paste0(year(StartDate), "-04-01")),
                finyear = ifelse(StartDate >= finstart, year(finstart) + 1, year(finstart)))