R语言如何自动补全不连续汇总表缺失年份行并填充0值

方法1：使用tidyr::complete()一键补全（最简便） #

这个函数专门用于补全数据框中缺失的因子/序列组合，不需要提前识别缺失年份，直接指定目标年份范围和填充规则即可，完全适配你正在使用的dplyr管道操作。
示例代码：

library(tidyverse)

# 原始示例数据
df <- tibble(
  Year = c(1999, 2002, 2004),
  A = c(1, 5, 6),
  B = c(3, 9, 9)
)

# 自动补全代码
df_filled <- df %>%
  complete(
    Year = 1998:2004, # 直接填入你需要覆盖的年份起止范围，自动生成连续年份序列
    fill = list(A = 0, B = 0) # 指定缺失行各列的填充值，所有数值列统一设为0即可
  )

运行后输出结果和你手动add_row的效果完全一致，无论中间缺失多少年份都会自动补全，不需要提前枚举缺失值。

注意：如果你的Year列存储为字符类型，将年份序列部分改为Year = as.character(1998:2004)即可，避免类型不匹配报错。

方法2：基准表连接法（适合多分组场景） #

如果你的汇总表除了年份外还有其他分组维度（比如地区、品类等），可以先构建包含所有维度组合的基准表，再和汇总结果连接，最后替换空值，扩展性更强。
示例代码：

# 第一步：构建包含所有目标年份的基准框架
# 如果有其他分组维度，用expand_grid()把所有维度的可选值做全组合即可
year_frame <- tibble(Year = 1998:2004)

# 接入你原有的group_by + summarise汇总流程
df_filled <- df %>%
  group_by(Year) %>%
  summarise(
    A = sum(A),
    B = sum(B),
    .groups = "drop"
  ) %>%
  # 和基准年份表连接，缺失年份自动生成空值
  right_join(year_frame, by = "Year") %>%
  # 将数值列的空值统一替换为0
  mutate(across(c(A, B), ~replace_na(., 0))) %>%
  # 按年份排序保证顺序正确
  arrange(Year)

选型建议 #

• 仅需要补全年份单维度的缺失行，优先选complete()方法，代码最简洁
• 存在多分组维度需要同步补全组合时，选基准表连接法，逻辑更清晰可控

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