R语言DataFrame按各Name最小周数补全至最新年份最近周实现

原代码问题分析 #

你的代码没有得到预期结果，主要有以下几个问题：

• 没有按Name分组，计算的是全表的最小周数，而非每个用户各自的首条记录最小周数
• 仅补全了周维度，没有处理年份维度的缺失值
• 列名拼写错误：数据中列名为大写Year，原代码写为小写year
• 语法错误：complete行末尾缺少管道符%>%，导致fill函数独立执行，没有承接上一步的结果

正确实现代码 #

需要依赖dplyr和tidyr两个包，实现逻辑如下：

# 加载依赖包
library(dplyr)
library(tidyr)

# 定义填充终止点：全局最新年份和对应最近周，可根据实际业务调整
max_year <- max(data$Year)
max_week <- max(data$Week[data$Year == max_year])

# 补全处理
result <- data %>%
  # 按用户分组，计算每个用户的首条记录对应的起始年、起始周
  group_by(Name) %>%
  mutate(
    start_year = min(Year),
    start_week = min(Week[Year == start_year])
  ) %>%
  # 同时补全年、周两个维度的缺失值
  complete(
    Year = seq(first(start_year), max_year),
    Week = seq(
      # 起始年从用户的首周开始，其余年份从第1周开始
      ifelse(Year == first(start_year), first(start_week), 1),
      # 终止年到全局最近周，其余年份默认到53周（可按实际周数规则调整为52周）
      ifelse(Year == max_year, max_week, 53)
    ),
    fill = list(Total = 0)
  ) %>%
  # 清理辅助列，取消分组
  select(-start_year, -start_week) %>%
  ungroup()

验证说明 #

以上代码运行后，会得到你示例中的预期输出：每个用户从自己首条记录的年周开始，一直补全到全局最新年周，缺失的Total字段默认填充为0。如果需要适配自然年的周数规则（比如部分年份只有52周），可以把周数的终止值替换为对应年份的实际最大周数计算逻辑即可。

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