如何获取R中多个连续元素的索引？

# 示例数据
data <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

# 初始化起始索引
start_index <- 1

# 初始化结果列表
result <- list()

# 循环遍历数据
for (i in 2:length(data)) {
  # 判断是否连续
  if (data[i] == data[i-1] + 1) {
    # 更新结束索引
    end_index <- i
  } else {
    # 如果不连续，则将连续元素的索引添加到结果列表中
    if (end_index - start_index > 0) {
      result <- c(result, list(start_index:end_index))
    }
    # 更新起始索引
    start_index <- i
  }
}

# 添加最后一组连续元素的索引
if (end_index - start_index > 0) {
  result <- c(result, list(start_index:end_index))
}

# 输出结果
result

# 示例数据
data <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

# 计算相邻元素之间的差异
diff_data <- diff(data)

# 计算累积和
cumsum_data <- cumsum(diff_data)

# 获取连续元素的索引
start_index <- c(1, which(diff_data != 1) + 1)
end_index <- c(which(diff_data != 1), length(data))

# 构建结果列表
result <- mapply(function(start, end) start:end, start_index, end_index)

# 输出结果
result