r - 确定同一周内的日期

Question

给定日期向量(可能跨越多年):

exampleDates = as.Date( 1 : 15, origin = as.Date( "2012-12-25") )

我想生成一个将日期按周分组的标识符。因此，假设日历从星期日开始:

• 第 26 到 29 个将产生相同的标识符
• 第 30 到 5 个具有相同的 ID
• 第 6 个到第 9 个具有相同的 ID

这是一个有缺陷的尝试:

strftime( exampleDates , format = "%Y%W")

它将 31 日和 1 日视为不同的周(毫不奇怪)。我正在寻找类似于 strftime 的东西，它会生成一个标识符(字符、数字等)，我可以用它来按周对日期进行分组。

我确信已经有一些聪明的功能了。

Answer 1

这将为给定周内的日期组分配一个唯一的整数:

origin <- as.Date("2012-12-9")  ## A Sunday
weekID <- as.numeric(exampleDates - origin) %/% 7

data.frame(date = exampleDates,
           weekday = weekdays(exampleDates),
           week = weekID)
#          date   weekday week
# 1  2012-12-26 Wednesday    2
# 2  2012-12-27  Thursday    2
# 3  2012-12-28    Friday    2
# 4  2012-12-29  Saturday    2
# 5  2012-12-30    Sunday    3
# 6  2012-12-31    Monday    3
# 7  2013-01-01   Tuesday    3
# 8  2013-01-02 Wednesday    3
# 9  2013-01-03  Thursday    3
# 10 2013-01-04    Friday    3
# 11 2013-01-05  Saturday    3
# 12 2013-01-06    Sunday    4
# 13 2013-01-07    Monday    4
# 14 2013-01-08   Tuesday    4
# 15 2013-01-09 Wednesday    4