R语言实现分组内每两行递增的计数器列并拼接组名

核心实现逻辑：

• 按group字段拆分数据分组
• 每个分组内按原始行序，生成取值为1,1,2,2,3,3……的重复递增计数序列
• 将分组名称与对应计数值用下划线拼接，作为最终的counter列值

方法1：dplyr实现（可读性高，推荐日常使用） #

需要先安装加载dplyr包（属于tidyverse生态），代码如下：

# 加载包，首次使用请先运行 install.packages("dplyr")
library(dplyr)

# 构造示例输入数据
df <- data.frame(
  group = c("g1","g1","g2","g2","g2","g2","g3","g3"),
  numbering = c("x","y","x","y","x","y","x","y")
)

# 核心处理逻辑
df_res <- df %>%
  group_by(group) %>%
  mutate(
    # 组内行号从1开始计数，通过整数除法实现每2行计数+1
    counter_num = (row_number() + 1) %/% 2,
    counter = paste0(group, "_", counter_num)
  ) %>%
  ungroup() %>%
  select(-counter_num) # 移除临时生成的计数值列

核心计数规则说明：(行号 + 1) %/% 2是整数除法运算，行号1、2计算结果均为1，行号3、4计算结果均为2，以此类推，天然符合1,1,2,2的序列要求。如果分组内为奇数行，最后一个计数值只会出现1次，无需额外适配。

方法2：基础R实现（无需安装第三方包） #

如果不想依赖外部包，可以直接用R内置函数实现：

# 构造示例输入数据
df <- data.frame(
  group = c("g1","g1","g2","g2","g2","g2","g3","g3"),
  numbering = c("x","y","x","y","x","y","x","y")
)

# 核心处理逻辑
df$counter <- paste0(
  df$group,
  "_",
  # ave函数按分组执行自定义计算
  ave(
    rep(1, nrow(df)), 
    df$group, 
    FUN = function(x) (seq_along(x) + 1) %/% 2
  )
)

结果验证 #

两种方法运行后得到的结果完全匹配预期输出：

group numbering counter
1    g1         x    g1_1
2    g1         y    g1_1
3    g2         x    g2_1
4    g2         y    g2_1
5    g2         x    g2_2
6    g2         y    g2_2
7    g3         x    g3_1
8    g3         y    g3_1

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