如何在R中创建以周一为起始、周日为结束的年度周变量？

针对你的需求，以下是两种可行的解决方案，解决默认周起始为周日的问题：

方法1：使用ISO标准周（周一为起始） #

lubridate包的isoweek()函数遵循ISO规范，每周从周一开始，每年第一周要求至少包含当年4天。直接替换原代码中的week()即可：

library(dplyr)
library(lubridate)

# 确保日期列是Date类型
clim$Data.Medicao <- as.Date(clim$Data.Medicao)

a <- clim %>%
  arrange(Data.Medicao) %>%
  mutate(
    year = year(Data.Medicao),
    week = isoweek(Data.Medicao) # 生成周一为起始的年度周数
    # 若需从数据集第一周开始连续计数而非年度内计数，替换为：
    # week = isoweek(Data.Medicao) - isoweek(first(Data.Medicao)) + 1
  )

方法2：自定义周起始（适配任意规则） #

如果ISO周规则不符合你的需求（比如希望1月1日所在周为年度第1周），可以通过日期偏移调整周的起始：

a <- clim %>%
  arrange(Data.Medicao) %>%
  mutate(
    # 将日期偏移1天，让周日归为前一周的最后一天，周一成为新一周起点
    adjusted_date = Data.Medicao - days(1),
    week = week(adjusted_date),
    year = year(adjusted_date), # 修正跨年周的年份归属
    # 数据集内连续计数的话：
    week = week - first(week) + 1
  )

验证周范围（可选） #

可以新增列确认周的起始和结束日期是否符合要求：

a <- a %>%
  mutate(
    week_start = floor_date(Data.Medicao, "week", week_start = 1), # 周一
    week_end = week_start + days(6) # 周日
  )

内容的提问来源于stack exchange，提问作者Danielle A C Ferreira