r - 自动填充周日期

Question

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

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")如果您想更普遍地执行此操作(无需对年份进行硬编码)。