自动填充周日期

Question

我正试图找到一种方法来自动填充任何给定年份的开始/结束周日期.例如2015年4月12日 - 2015年4月18日,2015年4月19日 - 2015年4月25日,2015年4月26日 - 2015年5月2日.我想我可以明确地计算出来,但它不是很优雅.提前致谢!

Answer 1

找到第一天,一年中的第一周的最后一天:阅读%W,%w,%V根据规格?strptime的更多细节.请注意,strptime约定非常挑剔(例如,您需要正确的数字位数),可能依赖于操作系统,并且可能依赖于语言环境...

firstday <- as.Date(strptime("2010-01-0",format="%Y-%W-%w")) ## Sunday 
lastday <- as.Date(strptime("2010-01-6",format="%Y-%W-%w"))  ## Saturday

现在从那些日期开始设置日期序列:

seq.Date(firstday,as.Date("2010-12-31"),by="1 week")
seq.Date(lastday,as.Date("2010-12-31"),by="1 week")

您可以使用例如,paste0(year,"-01-0")如果您想更普遍地这样做(没有硬编码年份).