如何在R中计算ISO标准下含52/53周年份的YYWW日期周数差

要计算YYWW格式日期之间的周数（包含首尾周），关键是先把这类格式转换为标准日期，再利用日期差计算周数，自动处理不同年份的周数差异（比如2009、2015年有53周，2010年只有52周）。推荐用lubridate包来简化操作，它对ISO周的处理非常可靠。

步骤1：加载依赖包并准备数据 #

library(lubridate)

# 你的示例数据集
df <- data.frame(date_start = c("0951", "0952", "1001", "1551"),
                 date_end = c("1052", "1003", "1144", "1651"))

步骤2：将YYWW转换为标准日期 #

把YYWW中的两位年份补全为20XX，再用parse_date_time结合%Y%V格式（ISO周年份+ISO周数）解析为标准日期：

# 转换起始和结束日期
df$start_date <- parse_date_time(paste0("20", df$date_start), "%Y%V")
df$end_date <- parse_date_time(paste0("20", df$date_end), "%Y%V")

步骤3：计算周数（包含首尾周） #

用difftime计算两个日期的周数差，再加1（因为要包含起始周和结束周）：

df$week_count <- as.integer(difftime(df$end_date, df$start_date, units = "weeks")) + 1

验证结果 #

最终数据集如下：

> df
  date_start date_end start_date   end_date week_count
1       0951     1052 2009-12-14 2010-12-27         55
2       0952     1003 2009-12-21 2010-01-18          5
3       1001     1144 2010-01-04 2011-10-31         96
4       1551     1651 2015-12-14 2016-12-12         54

原理说明 #

lubridate的parse_date_time会严格遵循ISO周规则解析日期，自动识别年份的周数（52或53周）。计算周数差时，difftime会准确统计两个日期之间的完整周数，加1后就得到包含首尾周的总周数。

如果你不想用第三方包，也可以用base R实现日期转换（代码稍复杂但逻辑一致）：

# base R日期转换函数
convert_yyww_to_date <- function(yyww) {
  year <- as.integer(paste0("20", substr(yyww, 1, 2)))
  week <- as.integer(substr(yyww, 3, 4))
  # 初始计算该周的周一日期
  date <- ISOdate(year, 1, 1) + (week - 1)*7
  # 调整到正确的ISO周（避免1月1日属于上一年周的情况）
  while (strftime(date, "%V") != as.character(week)) {
    date <- date + 7
  }
  return(date)
}

# 转换并计算周数
df$start_date <- sapply(df$date_start, convert_yyww_to_date)
df$end_date <- sapply(df$date_end, convert_yyww_to_date)
df$week_count <- as.integer(difftime(df$end_date, df$start_date, units = "weeks")) + 1

内容的提问来源于stack exchange，提问作者user13069688