添加+；1至季度（日期）R

我有以下数据，我想在每个季度添加一个

1

（即将季度提前1个季度）

我可以做

d$quarter+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))

数据：
图书馆（lubridate）
日期改为在日期列中执行此操作

d$nextquarter
d2%变异（新日期=日期%m+%months（3））%>%
变异（季度2=季度（新的_日期），
年份2=年份（新的日期））
您可以使用模4将4作为0，而无需将1更改为3，然后添加1：

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

d%变异（季度=（季度（日期）%%4）+1，年=年（日期））

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