如何基于R数据框中另一列的分组重置列中的序列编号

针对你的需求——按受试者分组，将每组内的会话编号重置为从1开始的连续编号，以下是几种高效的自动化方案，适配大数据集：

1. dplyr 实现（代码简洁，适合tidyverse用户） #

利用分组操作结合dense_rank()，快速为每组内的不同会话分配连续编号：

library(dplyr)

df <- df %>%
  group_by(Subject) %>%
  mutate(New_Sess = dense_rank(Session)) %>%
  ungroup()

2. data.table 实现（处理超大数据集效率最优） #

如果数据集规模极大，data.table的分组运算速度远优于其他方案：

library(data.table)

setDT(df)  # 将data.frame转换为data.table格式
df[, New_Sess := dense_rank(Session), by = Subject]

3. 基础R 实现（无需额外安装包） #

使用ave()函数结合因子转换，不依赖任何第三方包即可完成：

df$New_Sess <- ave(df$Session, df$Subject, FUN = function(x) {
  as.integer(factor(x, levels = unique(x)))
})

验证结果 #

执行任意一种方法后，数据框会生成目标列New_Sess，输出与预期一致：

Subject Session New_Sess
1        A       1        1
2        A       1        1
3        A       1        1
4        A       2        2
5        A       2        2
6        A       2        2
7        B       8        1
8        B       8        1
9        B       8        1
10       B       8        1
11       B       9        2
12       B       9        2
13       B       9        2

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