如何在R语言中判断一个向量是否按顺序包含另一个向量？

确实，%in%只能帮咱们检查元素是否存在，完全不考虑顺序——这就是为什么你用vec1 %in% vec3会得到全TRUE，但实际顺序不符合预期。要解决这个问题，咱们可以用两种思路实现：

方法一：自定义遍历函数（适配重复元素场景） #

如果你的向量里有重复元素，这个方法能更精准地找到符合顺序的匹配：

is_subsequence <- function(sub_vec, full_vec) {
  # 获取子向量每个元素在全向量中的所有出现位置
  pos_list <- lapply(sub_vec, function(x) which(full_vec == x))
  
  current_pos <- 0
  for (positions in pos_list) {
    # 找到第一个比当前记录位置大的匹配点
    next_candidate <- positions[positions > current_pos]
    if (length(next_candidate) == 0) {
      # 找不到符合顺序的元素，直接返回FALSE
      return(FALSE)
    }
    # 更新当前位置为找到的候选位置
    current_pos <- next_candidate[1]
  }
  # 所有元素都按顺序找到匹配，返回TRUE
  return(TRUE)
}

测试示例 #

vec1 <- c("a", "b", "c")
vec2 <- c("a", "b", "c", "d", "e")
vec3 <- c("e", "d", "c", "b", "a")
vec4 <- c("a", "d", "b", "e", "c")
vec5 <- c("a", "a", "b")
vec6 <- c("a", "b", "a", "c")

is_subsequence(vec1, vec2)  # TRUE
is_subsequence(vec1, vec3)  # FALSE
is_subsequence(vec1, vec4)  # TRUE（相对顺序a→b→c保持）
is_subsequence(vec5, vec6)  # TRUE（第一个a对应vec6的第一个a，第二个a对应vec6的第三个a）

方法二：用match+cummax快速实现 #

如果你的向量元素无重复，或者只需要检查首次出现的位置是否符合顺序，这个方法更简洁高效：

is_subsequence_simple <- function(sub_vec, full_vec) {
  # 获取子向量元素在全向量中首次出现的位置
  match_pos <- match(sub_vec, full_vec)
  
  # 先检查是否有元素不在全向量中
  if (any(is.na(match_pos))) {
    return(FALSE)
  }
  
  # 累积最大值如果和原位置完全一致，说明位置是严格递增的（相对顺序正确）
  all(match_pos == cummax(match_pos))
}

测试示例 #

is_subsequence_simple(vec1, vec2)  # TRUE
is_subsequence_simple(vec1, vec3)  # FALSE
is_subsequence_simple(vec1, vec4)  # TRUE
is_subsequence_simple(vec5, vec6)  # TRUE（同样适配重复元素场景）

这个方法的核心逻辑是：如果子向量的元素在全向量中是按相对顺序出现的，那么它们的首次匹配位置一定是递增的，用cummax取累积最大值后，结果会和原位置完全重合；反之，如果顺序不对，累积最大值会覆盖掉不符合递增要求的位置，导致和原位置不一致。

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