请求简化R语言代码并消除警告：为序列分配统一值

原代码意图为sygnature列中每一段从1开始的递增序列添加对应前缀（如44/1、44/2...），但运行时因替换长度不匹配触发警告。以下是简化后的无警告代码，同时保留原逻辑：

优化后代码 #

# 初始数据
data <- data.frame(sygnature = c(1:8, 1:3, 1:11, 1:6, 1:9, 1:5))
n <- 44:49

# 生成分组标识：每遇到1就开启新分组
data$group <- cumsum(data$sygnature == 1)

# 生成带前缀的新sygnature值
data$sygnature <- paste0(n[data$group], "/", data$sygnature)

# 可选：删除临时分组列
data$group <- NULL

原代码问题分析 #

1. 警告原因：原循环赋值时，用了整个syg向量（长度等于总行数）给每个子区间赋值，但每个子区间长度远小于总长度，导致R提示"替换项数量不是替换长度的倍数"。
2. 冗余逻辑：原代码通过循环判断s > z来识别分段终点，效率低且处理最后一行NA的逻辑复杂；新代码用cumsum(data$sygnature == 1)直接生成分组，简洁高效。

验证结果 #

运行优化后代码，sygnature列的结果与原代码完全一致，且无任何警告。

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