R语言：如何根据另一列条件为对应整段序列的列赋值

核心思路是先按seq=1的位置划分独立序列段，再判断每个段内是否存在num>7.5的行，最后给整个段统一赋值state。以下是两种可行实现方式：

方式一：基于dplyr的简洁实现 #

# 先构造示例数据
df <- data.frame(
  seq = c(1,2,3,1,2,3,1,2,3,4,5,1,2,3),
  num = c(0.1,0.1,0.2,0,0,0,0.5,2,6,9,12,0,0,0)
)

library(dplyr)

df <- df %>%
  # 生成分组ID：每遇到seq=1就开启新分组
  mutate(group_id = cumsum(seq == 1)) %>%
  # 按分组处理
  group_by(group_id) %>%
  # 判断当前组是否存在num>7.5，转成0/1二进制值
  mutate(state = as.integer(any(num > 7.5))) %>%
  # 清理临时分组列
  ungroup() %>%
  select(-group_id)

运行后输出结果与预期完全一致：

seq  num state
1    1  0.1     0
2    2  0.1     0
3    3  0.2     0
4    1  0.0     0
5    2  0.0     0
6    3  0.0     0
7    1  0.5     1
8    2  2.0     1
9    3  6.0     1
10   4  9.0     1
11   5 12.0     1
12   1  0.0     0
13   2  0.0     0
14   3  0.0     0

方式二：基础R原生实现（无第三方依赖） #

# 构造示例数据
df <- data.frame(
  seq = c(1,2,3,1,2,3,1,2,3,4,5,1,2,3),
  num = c(0.1,0.1,0.2,0,0,0,0.5,2,6,9,12,0,0,0)
)

# 生成分组ID
df$group_id <- cumsum(df$seq == 1)
# 计算每个分组的state标记
group_state <- tapply(df$num, df$group_id, function(x) as.integer(any(x > 7.5)))
# 将标记映射回原数据框
df$state <- group_state[as.character(df$group_id)]
# 清理临时列
df$group_id <- NULL

关键逻辑说明 #

1. 分组划分：cumsum(seq == 1)会在每次遇到seq=1时累加计数，把连续的序列段拆分成独立分组，确保后续判断是针对整个段而非单个行。
2. 段内判断：any(num > 7.5)检查当前分组内是否存在满足条件的行，用as.integer()将布尔结果转成0/1的二进制值，实现整段统一赋值。

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