r - 将 +1 添加到 R 中的季度(日期)

Question

我有以下数据，我想向每个季度添加一个 1(即将季度提前 1 个季度)

我可以执行 d$quarter + 1 但这给了我第 4 季度作为“第 5 季度”。我怎样才能将第 4 季度延期到下一年的第 1 季度？

Data:


library(lubridate)

    dates <- sample(seq(as.Date('2005/01/01'), as.Date('2010/01/01'), by="day"), 1000)
    x_var <- rnorm(1000)

    d <- data.frame(dates, x_var) %>%
      mutate(quarter = quarter(dates),
             year = year(dates))

Answer 1

您可以使用模 4 将 4 设为 0 而无需将 1 更改为 3 然后加 1:

d <- data.frame(dates, x_var) %>% mutate(quarter = (quarter(dates)%%4)+1, year = year(dates))