如何基于指定起始日期生成跨年度连续周计数（R语言）

你可以通过计算日期差并转换为周数来实现需求，以下是具体代码：

基础实现（已知起始日期为周日） #

# 模拟数据
df <- data.frame(
  Date = c("2022-11-07", "2022-11-09", "2022-11-10", "2022-11-14", "2022-11-15", "2022-11-17", "2022-11-21", "2022-11-22", "2022-11-23"), 
  Concentration = c(10, 12, 15, 16, 16, 14, 11, 9, 6)
)

# 指定起始日期
data_start_date <- as.Date("2022-09-25")

# 将Date列转换为日期类型
df$Date <- as.Date(df$Date)

# 计算天数差并转换为周计数
df$Weekly_Count <- floor(as.numeric(df$Date - data_start_date) / 7) + 1

# 查看结果
df

运行后会得到你预期的输出：

Date Concentration Weekly_Count
1 2022-11-07            10            7
2 2022-11-09            12            7
3 2022-11-10            15            7
4 2022-11-14            16            8
5 2022-11-15            16            8
6 2022-11-17            14            8
7 2022-11-21            11            9
8 2022-11-22             9            9
9 2022-11-23             6            9

通用实现（适配任意起始日期，确保周从周日开始） #

如果你的起始日期不一定是周日，可以用lubridate包调整到对应周的周日，保证计数逻辑统一：

library(lubridate)

# 模拟数据与起始日期
df <- data.frame(
  Date = c("2022-11-07", "2022-11-09", "2022-11-10", "2022-11-14", "2022-11-15", "2022-11-17", "2022-11-21", "2022-11-22", "2022-11-23"), 
  Concentration = c(10, 12, 15, 16, 16, 14, 11, 9, 6)
)
data_start_date <- as.Date("2022-09-25")

# 将Date列转为日期类型
df$Date <- as.Date(df$Date)

# 调整起始日期到其所在周的周日（每周从周日开始）
adjusted_start <- data_start_date - wday(data_start_date, week_start = 7) + 1

# 计算连续周计数
df$Weekly_Count <- floor(as.numeric(df$Date - adjusted_start) / 7) + 1

# 查看结果
df

逻辑说明 #

1. 日期类型转换：确保Date列是R的Date类型，避免字符计算错误。
2. 天数差计算：用as.numeric()将日期差转换为具体天数。
3. 周数转换：天数差除以7后取整数部分（floor()），加1是因为要求起始周为第1周而非第0周。
4. 通用调整（可选）：wday(data_start_date, week_start = 7)会返回日期在周内的位置（周日=1，周六=7），通过调整可以确保无论起始日期是周几，其所在的周日开始的周都被计为第1周。

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