嗨，我来帮你搞定这个每周活跃员工数的计算问题！

首先明确核心需求：你有员工的入职日期（d_start）和离职日期（d_end）数据，要统计第1年（默认指特定自然年，可根据实际场景调整）52周里，每周处于活跃状态的员工数量——哪怕员工在第1年之前就已加入项目。

核心思路 #

比起给每个员工生成周序列再逐一比对，更高效的逻辑是：

• 先明确第1年每一周的日期范围
• 对每一周，统计有多少员工的在职区间与该周存在重叠（即员工入职早于/等于周结束、离职晚于/等于周开始）

具体实现步骤（以R语言为例） #

假设你的员工数据框是emp_data，其中d_start和d_end均为Date类型。

步骤1：生成第1年的周日期范围 #

先确定目标年份，比如我们以2022年为例，生成每一周的起始/结束日期：

# 定义目标年份
target_year <- 2022
# 生成该年每周的起始日期（默认周一，可改为周日）
week_starts <- seq(as.Date(paste0(target_year, "-01-01")), 
                   as.Date(paste0(target_year, "-12-31")), 
                   by = "week")
# 生成对应周的结束日期（周日）
week_ends <- week_starts + 6
# 整理成包含周数、起止日期的数据框
week_df <- data.frame(week_num = 1:length(week_starts),
                      week_start = week_starts,
                      week_end = week_ends)

步骤2：统计每周活跃员工数 #

这里提供两种常用方法，按需选择：

方法1：用dplyr简洁处理

library(dplyr)

active_per_week <- week_df %>%
  rowwise() %>%
  mutate(active_count = sum(emp_data$d_start <= week_end & emp_data$d_end >= week_start, na.rm = TRUE)) %>%
  ungroup()

解释：逐行遍历每一周，计算满足「员工入职≤周结束 且 员工离职≥周开始」的人数——只要员工在职区间和该周有重叠，就算活跃。na.rm=TRUE用于处理可能的日期缺失值。

方法2：基础R实现（无需额外包）

active_per_week$active_count <- sapply(1:nrow(week_df), function(i) {
  sum(emp_data$d_start <= week_df$week_end[i] & emp_data$d_end >= week_df$week_start[i], na.rm = TRUE)
})

步骤3：特殊情况处理 #

• 员工在第1年之前入职：只要离职日期≥该周起始，就会被统计，完全符合需求
• 员工在第1年之后离职：只要入职日期≤该周结束，就会被统计
• 员工全年在职：会被计入所有52周的活跃数

大数据量优化方案 #

如果员工数据量很大，用lubridate的区间功能可以更高效地处理重叠判断：

library(lubridate)

# 将员工在职时间转换为interval对象
emp_intervals <- interval(emp_data$d_start, emp_data$d_end)
# 生成每周的区间对象
week_intervals <- interval(week_df$week_start, week_df$week_end)
# 统计每个周区间与多少员工区间重叠
active_per_week$active_count <- sapply(week_intervals, function(w) {
  sum(int_overlaps(w, emp_intervals), na.rm = TRUE)
})

最终得到的active_per_week就是包含周数和对应活跃员工数的数据框，完美匹配你的需求！

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