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

Question

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

我有一种变通方法

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

但我想的东西，我可以通过整个载体。

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

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也将与原来的解决办法工作。