R中向量日期之间的时间

Question

在给定日期向量V.dates的情况下，编写一个函数，该函数确定每个元素从当前日期开始的时间（以天为单位）。 接下来，以倒序的顺序确定从当前日期开始的按91天细分定义的季度。 将四分之一“ 0”定义为当前日期和（当前日-91）之间的时间，将四分之一“ 1”定义为（当前日-91）到（当前日-182）之间，等等。最后，返回一个数据框，其中包含原始日期，从今天开始的持续时间以及该日期所属的季度。 请记住，日期可能在当前日期之前或之后。 例如，假设当前日期为'10 / 27/2010'，输入日期为'6/20/2009'，则该函数应返回输入日期为距今天494天，并且属于季度5。

我目前使用以下方法计算了两个向量之间的时间：

V.dates <- as.Date(c("27-10-2010","20-6-2009"),format="%d-%m-%Y")
difftime(V.dates[1],V.dates[2],units="days")

我不知道如何确定季度。

Answer 1

您可以使用gl获取季度

 v2 <- as.vector(difftime(V.dates[1],V.dates[2],units="days"))
 max(as.numeric(gl(v2, 91, v2))-1)
 #[1] 5

要么

 v2 %/% 91
 #[1] 5