如何在R语言中生成向量的所有唯一片段组合？

你需要将向量拆分为所有可能的片段组合，且不考虑子片段的排列顺序（比如list(c(1,5), c(2,3), 4)和list(4, c(2,3), c(1,5))视为同一组合，仅保留一个）。以下是实现方法：

步骤1：生成所有可能的拆分 #

首先实现函数生成向量的所有拆分方式，覆盖所有间隙的拆分/不拆分组合：

generate_all_splits <- function(v) {
  n <- length(v)
  if (n == 1) return(list(list(v)))
  
  # 遍历2^(n-1)种拆分模式
  lapply(0:(2^(n-1)-1), function(x) {
    # 将整数转为n-1位二进制，标记拆分位置
    bits <- rev(as.integer(intToBits(x))[1:(n-1)])
    split_pos <- which(bits == 1)
    
    if (length(split_pos) == 0) {
      # 不拆分，返回整个向量
      list(v)
    } else {
      # 计算每个片段的起止索引并拆分
      starts <- c(1, split_pos + 1)
      ends <- c(split_pos, n)
      lapply(seq_along(starts), function(i) v[starts[i]:ends[i]])
    }
  })
}

步骤2：标准化拆分结果以去重 #

因为子片段顺序无关，我们将每个拆分的子片段按统一规则排序，让相同组合的结构一致，再进行去重：

# 标准化单个拆分：按片段的字符串标识排序子片段
standardize_split <- function(split_list) {
  seg_keys <- sapply(split_list, function(seg) paste(seg, collapse = ","))
  split_list[order(seg_keys)]
}

# 生成所有唯一的片段组合
get_unique_splits <- function(v) {
  all_splits <- generate_all_splits(v)
  # 标准化所有拆分结构
  standardized_splits <- lapply(all_splits, standardize_split)
  
  # 将标准化结构转为字符串去重，再还原为嵌套列表
  unique_seg_strings <- unique(sapply(standardized_splits, function(s) {
    paste(sapply(s, function(seg) paste(seg, collapse=",")), collapse=";")
  }))
  
  lapply(unique_seg_strings, function(s) {
    lapply(strsplit(s, ";")[[1]], function(seg_str) as.integer(strsplit(seg_str, ",")[[1]]))
  })
}

测试示例 #

用你提供的向量c(1,2,3,4,5)测试：

v <- c(1,2,3,4,5)
unique_combinations <- get_unique_splits(v)

结果会包含所有唯一的片段组合，比如你提到的list(c(1,5), c(2,3), 4)和list(4, c(2,3), c(1,5))会被标准化为同一结构，仅保留一个。

说明 #

• 长度为n的向量原始拆分共有2^(n-1)种，去重后数量会减少，因为子片段不同排列视为同一组合。
• 标准化时用片段的字符串表示作为排序键，确保内容相同的组合被归为一类。

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