R使用时间计算变化而不是滞后

Question

我正在尝试计算从四分之一到下一个季度的变化。这有点复杂，因为我正在对变量进行分组，如果可能的话我不想使用滞后。我有一些难以找到解决方案。有没有人有建议？ 这就是我现在所处的位置。

library(dplyr)
library(lubridate)

x <- mutate(x,QTR.YR = quarter(x$Month.of.Day.Timestamp, with_year = TRUE))

New.DF <- x %>% group_by(location_country, Device.Type,QTR.YR) %>% #Select grouping columns to summarise
  summarise(Sum.Basket = sum(Baskets.Created), Sum.Visits = sum(Visits),
            Sum.Checkout.Starts = sum(Checkout.Starts), Sum.Converted.Visit = sum(Converted.Visits),
            Sum.Store.Find = sum(store_find), Sum.Time.on.Page = sum(time_on_pages), 
            Sum.Time.on.Product.Page = sum(time_on_product_pages), 
            Visit.Change = sum(Visits)/sum((lag(Visits)),4)-1)

View(New.DF)