R - 获取两个日期之间的所有日历年

Question

我有一个数据框，其中包含一个包含开始日期的列和一个包含结束日期的列。我想知道是否有一种体面的 R 方式，从 base-R 获取这两个日期（包括）之间的所有日历年。

我有一个解决方法

seq(as.numeric(format(as.Date(df$start[1]), '%Y')), 
      as.numeric(format(as.Date(df$end[1]), '%Y')), by = 1)

但我想要一些可以将整个向量传递给的东西。

如果我在其中传递seq 函数，我想我可以使用apply，但这是要走的路吗？我试图达到的最终结果是每个日历年有多少条目“活跃”的直方图。任何帮助表示赞赏。谢谢。

Answer 1

只需使用年度序列：

sd = as.Date("1990-01-01")
ed = as.Date("1995-01-01")

substr(seq(sd, ed, "years"), 1, 4)

这会给你输出[1] "1990" "1991" "1992" "1993" "1994" "1995"

编辑：

您可以将其包装在一个函数中并使用mapply，这样您就可以传递整个向量。

sd = as.Date(c("1990-01-01", "1990-01-01", "1993-01-01", "1992-01-01"))
ed = as.Date(c("1995-01-01", "2000-01-01", "2001-01-01", "1998-01-01"))

yearser = function(sd, ed){
    substr(seq(sd, ed, "years"), 1, 4)
}

mapply(function(x, y) yearser(x, y), sd, ed)

当然，mapply 的这种方法也适用于您原来的解决方法。