R中重复行的序列号

# 创建一个包含重复行的数据框
df <- data.frame(
  id = c(1, 2, 3, 3, 4, 5, 5),
  name = c("John", "Jane", "Bob", "Bob", "Alice", "Tom", "Tom")
)

# 使用duplicated()函数查找重复行
is_duplicate <- duplicated(df)

# 使用ave()函数为重复行添加序列号
df$sequence <- ave(is_duplicate, is_duplicate, FUN = cumsum)

# 打印结果
print(df)

  id  name sequence
1  1  John        0
2  2  Jane        0
3  3   Bob        0
4  3   Bob        1
5  4 Alice        0
6  5   Tom        0
7  5   Tom        1