季度之间的时间差

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

季度之间的时间差

Time difference between quarters

r

date

date-formatting

date-difference