R 季度间时差

我目前正在处理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")

sample_dataframe
#使用zoo库将日期转换为季度
示例_dataframe$First_purchase_quarty
#使用zoo library将日期转换为季度
示例数据框$First\u purchase\u quarter这篇文章介绍了计算周、月、季度和年差异的方法这篇文章介绍了计算周、月、季度和年差异的方法嘿！非常感谢您的快速回复！它似乎成功了！你能解释一下为什么我必须把计算结果乘以4才能得到想要的结果吗？谢谢大家!
yearqtr
以年为单位思考，因此0.25的时差等于四分之一，这就是它乘以4的原因。通过运行
？yearqtr
嘿，您可以找到关于它的更多信息！非常感谢您的快速回复！它似乎成功了！你能解释一下为什么我必须把计算结果乘以4才能得到想要的结果吗？谢谢大家!
yearqtr
以年为单位思考，因此0.25的时差等于四分之一，这就是它乘以4的原因。通过运行
？yearqtr
#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