如何在R语言中按特定列观测值间隔计数生成试次编号？

下面提供两种常用数据分析工具的实现方案，核心逻辑都是统计每行及之前出现的trigger次数，自动适配试次长度不一致的场景：

Python（Pandas）方案 #

import pandas as pd

# 示例数据（替换成你的真实数据）
data = {
    'time': [1,2,3,4,5,6,7],
    'message': ['trigger', '0', '0', '0', 'trigger', '0', 'trigger']
}
df = pd.DataFrame(data)

# 生成试次编号列
df['trial'] = (df['message'] == 'trigger').cumsum()

# 查看结果
print(df)

运行后会直接生成包含trial列的目标表格，每个trigger行对应递增的试次编号，后续行自动继承当前编号。

R 方案 #

使用dplyr包（推荐） #

library(dplyr)

# 示例数据（替换成你的真实数据）
df <- data.frame(
    time = c(1,2,3,4,5,6,7),
    message = c("trigger", "0", "0", "0", "trigger", "0", "trigger")
)

# 生成试次编号列
df <- df %>% mutate(trial = cumsum(message == "trigger"))

# 查看结果
print(df)

基础R实现 #

如果不想加载额外包，直接用基础R代码：

# 假设df是你的数据框
df$trial <- cumsum(df$message == "trigger")

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