Início / coding / Perguntas / 78994757
Accepted
farrow90
Asked: 2024-09-17 23:26:30 +0800 CST

Convertendo datas do calendário em semanas fiscais em R

  • 772

Tenho um quadro de dados em R com uma coluna (formato de data) com entradas como esta:2020-04-01

Posso extrair o número da semana (1 a 52) de cada uma dessas datas usando a week()função em R (usando o calendário jan-dec).

Quero fazer a mesma coisa agora, mas para a semana fiscal, ou seja, o calendário abril-abril.

Tentei algumas opções, mas não parece haver uma maneira rápida de fazer isso. Alguém sabe se há uma maneira padrão de fazer isso em R?

Aqui está um rascunho de ideia em que eu estava trabalhando...

fiscal_week <- function(date) {
  date <- as.Date(date)
  
  fiscal_start <- ymd(paste(year(date) - ifelse(month(date) < 4, 1, 0), "04-01", sep = "-"))
  
  week_num <- as.integer((date - fiscal_start) / 7) + 1
  
  return(week_num)
}

df <- data.frame(Date = as.Date(c("2020-04-01", "2020-05-01", "2020-06-01")))
df$Fiscal_Week <- sapply(df$Date, fiscal_week)
print(df)

1 respostas

  1. Best Answer

    Acredito que o segredo é ter em mente os anos transacionais e usar a divisão inteira.

    Uma versão correta da função (considerando anos de volta) é

    library(lubridate)

fiscal_week <- function(date) {
  # Convert date to Date object if not already
  date <- as.Date(date)
  
  # Define fiscal year start based on whether the date is before or after April 1
  fiscal_start <- as.Date(paste0(year(date) - ifelse(month(date) < 4, 1, 0), "-04-01"))
  
  # Calculate the difference in days and convert to weeks
  week_num <- ceiling(as.numeric(difftime(date, fiscal_start, units = "days")) / 7)
  
  return(week_num)
}

    # Testing
df <- data.frame(Date = as.Date(c("2020-04-01", "2020-05-01", "2020-06-01", "2021-03-31", "2021-04-01")))

df$Fiscal_Week <- sapply(df$Date, fiscal_week)

    df

        Date Fiscal_Week
1 2020-04-01           0
2 2020-05-01           5
3 2020-06-01           9
4 2021-03-31          52
5 2021-04-01           0
    • 2

relate perguntas