如何根据R中另一列中的值将连续数字块添加到数据帧

# 创建一个空的数据框
df <- data.frame(value = c(1, 2, 3, 5, 6, 8, 9, 10), group = NA)

# 初始化变量
start <- 1
end <- 1

# 循环遍历数据框的每一行
for (i in 2:nrow(df)) {
  # 判断当前行的值是否连续
  if (df$value[i] == df$value[i-1] + 1) {
    end <- i
  } else {
    # 将连续数字块添加到数据框中
    df[start:end, "group"] <- paste("Group", start, "-", end)
    start <- i
    end <- i
  }
}

# 添加最后一个连续数字块
df[start:end, "group"] <- paste("Group", start, "-", end)

# 打印结果
print(df)