如何将YYYYWW格式的整数转换为日期格式？

嘿，这个需求其实不用绕复杂的日期转换圈子，两种方案任你选，看你是要简单高效还是要做数据合法性校验：

方案一：纯字符串处理（最快最直接） #

如果能确定你的输入都是严格的YYYYWW格式（没有非法周数），直接拆分字符串拼接就搞定，完全不需要依赖日期库：

# 示例变量
week_int <- 200901

# 转换步骤
week_char <- as.character(week_int)
formatted_result <- paste0(substr(week_char, 5, 6), "-", substr(week_char, 1, 4))

# 查看结果
formatted_result
# 输出: "01-2009"

原理很简单：把整数转成字符串后，前4位是年份，后2位是周数，用substr截取后拼接成你要的WW-YYYY格式就行，速度快还没额外依赖。

方案二：用ISOweek验证并转换（适合需要数据校验的场景） #

如果担心输入的周数可能不合法（比如某年份根本没有第53周），可以用ISOweek包先做日期合法性验证，再提取周数和年份：

library(ISOweek)

# 示例变量
week_int <- 201223

# 1. 把YYYYWW转成ISO 8601标准的周日期字符串（这里选周一作为周的第一天，不影响周数/年份提取）
iso_week_str <- paste0(
  substr(as.character(week_int), 1, 4), 
  "-W", 
  substr(as.character(week_int), 5, 6), 
  "-1"
)

# 2. 转成日期（如果周数非法会直接报错，帮你排查数据问题）
iso_date <- ISOweek2date(iso_week_str)

# 3. 提取标准ISO周数和年份，确保格式是两位周数
week_part <- sprintf("%02d", as.integer(ISOweek(iso_date)))
year_part <- ISOyear(iso_date)

# 4. 拼接结果
formatted_result <- paste0(week_part, "-", year_part)

# 查看结果
formatted_result
# 输出: "23-2012"

为啥之前用lubridate可能没成功？ #

lubridate的周数处理默认依赖本地时区和周起始日（比如有些地区周日是一周第一天），和ISO 8601的标准周定义可能有差异，所以如果是严格基于ISO周的需求，ISOweek包会更靠谱；但如果只是单纯的格式转换，方案一完全够用。

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