如何找出R中的值序列

# 创建一个向量
vec <- c(1, 2, 3, 5, 6, 8, 9, 10)

# 初始化一个空的序列
sequence <- c()

# 遍历向量并找出序列
for (i in 2:length(vec)) {
  if (vec[i] == vec[i-1] + 1) {
    sequence <- c(sequence, vec[i])
  }
}

# 打印序列
print(sequence)

# 创建一个向量
vec <- c(1, 2, 3, 5, 6, 8, 9, 10)

# 使用diff()函数计算差值
diff_vec <- diff(vec)

# 找出差值为1的元素的索引
sequence_indices <- which(diff_vec == 1) + 1

# 从原始向量中提取序列
sequence <- vec[sequence_indices]

# 打印序列
print(sequence)

# 创建一个向量
vec <- c(1, 2, 3, 5, 6, 8, 9, 10)

# 使用rle()函数计算连续值的长度和值
rle_vec <- rle(vec)

# 找出连续值的长度大于1的元素的索引
sequence_indices <- which(rle_vec$lengths > 1)

# 从原始向量中提取序列
sequence <- unlist(rle_vec$values[sequence_indices])

# 打印序列
print(sequence)