R语言：按分组保留x，填充year连续递增序列的方法

你提到的那个方法问题出在它是基于全局的最小和最大年份来生成序列的，没有考虑到每个x分组自己的年份范围，所以填充后的x会跨组混乱，不符合需求。我们需要针对每个分组单独处理年份序列，这里有两种简单可靠的实现方式：

方法1：用dplyr的分组+reframe #

先按x分组，然后对每个分组生成从该组最小年份到最大年份的连续序列：

library(dplyr)

df <- data.frame(x = c("A","A","B", "B"), year = c(2001,2004,2002,2005))

df %>%
  group_by(x) %>%
  reframe(year = min(year):max(year)) %>%
  ungroup()

运行后输出就是你想要的结果：

# A tibble: 8 × 2
  x     year
  <chr> <int>
1 A      2001
2 A      2002
3 A      2003
4 A      2004
5 B      2002
6 B      2003
7 B      2004
8 B      2005

方法2：用tidyr的complete函数（更简洁） #

tidyr::complete专门用来补全数据框中的缺失组合，结合分组使用就能完美解决这个问题：

library(tidyr)
library(dplyr)

df %>%
  group_by(x) %>%
  complete(year = min(year):max(year)) %>%
  ungroup()

这个方法的输出和上面完全一致，代码更直观，适合处理这类补全缺失序列的场景。

核心思路就是先分组，再针对每个分组单独生成连续年份，这样就不会出现跨组的问题啦。

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