如何让lubridate将2024-01-07识别为2024年第2周？

你遇到的问题是因为lubridate::week()默认遵循ISO周规则（周一为一周起始，每年首个包含周四的周为第1周），和你认可的“周日为首日”且“当年第一个周日所在周为第2周”的逻辑不匹配。以下是两种实现需求的方案：

方案一：基于当年第一个周日判断 #

直接计算当年第一个周日的日期，根据目标日期与该日期的关系确定周数：

library(lubridate)

custom_week <- function(date) {
  date <- ymd(date)
  year_start <- floor_date(date, "year")
  # 获取1月1日的星期值（周日=1，周一=2...周六=7）
  year_start_wday <- wday(year_start)
  
  if (year_start_wday == 1) {
    # 若1月1日是周日，直接使用默认周数
    week(date)
  } else {
    # 计算当年第一个周日的日期
    first_sunday <- year_start + days(8 - year_start_wday)
    if (date < first_sunday) {
      # 第一个周日之前的日期归为第1周
      1
    } else {
      # 第一个周日及之后的日期，按间隔周数+2计算
      2 + as.numeric(date - first_sunday) %/% 7
    }
  }
}

# 测试
custom_week("2024-01-06")  # 返回1
custom_week("2024-01-07")  # 返回2
custom_week("2024-01-14")  # 返回3

方案二：基于周日起始的周区间计算 #

通过floor_date()将日期对齐到周日起始的周，再计算该周与当年第一个周日起始周的间隔：

library(lubridate)

custom_week2 <- function(date) {
  date <- ymd(date)
  # 对齐到周日起始的周
  target_week_start <- floor_date(date, "week", week_start = 1)
  year_start <- floor_date(date, "year")
  # 当年第一个周日起始的周（可能跨到去年）
  first_year_week_start <- floor_date(year_start, "week", week_start = 1)
  
  # 计算周数间隔+1，自动处理跨年情况
  as.numeric((target_week_start - first_year_week_start) / dweeks(1)) + 1
}

# 测试
custom_week2("2024-01-06")  # 返回1
custom_week2("2024-01-07")  # 返回2
custom_week2("2023-01-01")  # 2023年1月1日是周日，返回1

两种方案都能满足你的需求：认可周日为一周首日，同时将2024年第一个周日（1月7日）归为第2周，1月1日-6日归为第1周。

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