R语言如何为每组重复值分别创建独立分组变量

针对重复循环序列按出现次序分配独立分组标识的需求，有以下几种可直接复用的实现方式： #

方法1：基础R实现（无第三方依赖） #

核心逻辑是识别每一段重复序列的起始位置，通过累计求和生成连续组号，再映射为需要的分组标签（比如大写字母A/B/C）。
示例代码：

# 原始输入数据
without_group <- data.frame(V1= c(1,2,3,1,2,3))

# 步骤1：识别分组：每遇到序列起始值1，组号累加1
without_group$group_no <- cumsum(without_group$V1 == 1)
# 步骤2：将数字组号映射为大写字母标识
without_group$group_tag <- LETTERS[without_group$group_no]

# 调整列顺序得到预期结果
with_group <- data.frame(
  V1 = without_group$group_tag,
  V2 = without_group$V1
)

如果不知道固定起始值，只要重复序列是连续递增后回到起点的循环模式，可以用差值判断自动识别新组起点，不需要提前指定序列特征：

# 通用逻辑：当前值小于前一个值时，判定为进入新的重复序列
without_group$group_no <- cumsum(c(TRUE, diff(without_group$V1) < 0))

这个逻辑适配任意长度、任意起始值的递增循环序列，比如c(2,4,6,2,4,6,2,4,6)这类自定义循环序列也能正确分组。 #

方法2：dplyr实现（适配tidyverse工作流） #

如果日常使用tidyverse系列包处理数据，可以直接用管道操作实现：

library(dplyr)

with_group <- without_group %>%
  mutate(
    group_no = cumsum(V1 == 1),
    V1 = LETTERS[group_no],
    V2 = V1
  ) %>%
  select(V1, V2)

两种方法生成的结果和示例预期完全一致：第一组1/2/3标记为A，第二组1/2/3标记为B，如果重复更多次会自动按顺序生成C/D/E等后续分组标签。

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