使用 R 根据日期计算每年的周数

Question

我有一个包含 2 个不同年份（2009 年和 2010 年）日期的数据集，并且希望每个日期都有相应的周数。

我的数据集与此类似：

  anim <- c(012,023,045,098,067)
  dob <- c("01-09-2009","12-09-2009","22-09-2009","10-10-2010","28-10-2010")
  mydf <- data.frame(anim,dob)
  mydf
    anim    dob
1   12   01-09-2009
2   23   12-09-2009
3   45   22-09-2009
4   98   10-10-2010
5   67   28-10-2010

我希望在第三列中有变量“周”，并为每个日期提供相应的周数。

编辑： 注意：每年第一周从 1 月 1 日开始，第二周从 1 月 8 日开始

。如有任何帮助，我们将不胜感激。

巴兹

Answer 1

您对“一年中的一周”的定义

编辑：注意：每年第一周从 1 月 1 日开始，第二周从 1 月 8 日开始

与 strftime 支持的标准不同：

%U
    Week of the year as decimal number (00–53) using Sunday as the first day 1 
    of the week (and typically with the first Sunday of the year as day 1 of 
    week 1). The US convention.
%W
    Week of the year as decimal number (00–53) using Monday as the first day 
    of week (and typically with the first Monday of the year as day 1 of week 
    1). The UK convention.

因此您需要根据一年中的日期来计算它数字。

mydf$week <- (as.numeric(strftime(as.POSIXct(mydf$dob, 
                                             format="%d-%m-%Y"), 
                                  format="%j")) %/% 7) + 1

Answer 2

Post 2011 Answer

library(lubridate)
mydf$week <- week(mydf$week)

lubridate 包对于此类日常任务非常简单。

Answer 3

如果您想知道您感兴趣的日期和一年的第一天之间已经过去了多少周（或 7 天），无论一年的第一天是星期几，以下是解决方案（使用 lubridate 中的 floor_date）。

mydf$weeks <- difftime(mydf$dob, floor_date(mydf$dob, "year"), units = c("weeks")))