季度之间的时差

Question

我目前正在使用 R 中的日期，需要计算两个季度之间的时间差。我使用zoo 库将我的日期转换为季度格式，但我很难计算我的日期之间的差异。

这里是重现性的示例代码：

sample_dataframe <- data.frame(First_Purchase_date = c(as.Date("2020-01-15"), as.Date("2019-02-10"),as.Date("2018-12-24")),Recent_Purchase_date = c(as.Date("2020-06-20"), as.Date("2020-10-10"), as.Date("2019-05-26")))

library(zoo)
#using zoo library to transform my dates into quarters
sample_dataframe$First_purchase_quarter <- as.yearqtr((sample_dataframe$First_Purchase_date), "%Y-%m-%d")
sample_dataframe$Recent_Purchase_quarter <- as.yearqtr((sample_dataframe$Recent_Purchase_date), "%Y-%m-%d")

我想要实现的是从 First_purchase_quarter 中减去Recent_Purchase_quarter 以获得季度时差。

因此，如果Recent_Purchase_quarter 是2019 Q2，First_Purchase_quarter 是2018 Q4，则结果应该是2。

如上所述，获得季度时差的最简单方法是什么？

Answer 1

#using zoo library to transform my dates into quarters
sample_dataframe$First_purchase_quarter <- as.yearqtr((sample_dataframe$First_Purchase_date), "%Y-%m-%d")
sample_dataframe$Recent_Purchase_quarter <- as.yearqtr((sample_dataframe$Recent_Purchase_date), "%Y-%m-%d")

sample_dataframe$diff <- (sample_dataframe[, 4] - sample_dataframe[, 3]) * 4
head(sample_dataframe$diff)
[1] 1 7 2