如何合并矢量列表（在R中），使它们具有最小长度？

Question

我有以下四个向量：

A <- c(5, 5, 5, 5, 5, 5, 5)
B <- c(6, 6, 6)
C <- c(7, 7, 7, 7)
D <- c(8, 8, 8, 8)

最后，我想将这个矢量列表（这里是4个矢量）转换为完整矢量的所有成对组合（即不分割单个矢量）与连接的载体，最小长度为7 。因此，一种可能的解决方案是：

s1 <- c(5, 5, 5, 5, 5, 5, 5, 6, 6, 6)
s2 <- c(7, 7, 7, 7, 8, 8, 8, 8)

我该怎么做？

Answer 1

我使用combn来制作您的单个向量的成对组合（忽略方向c(A,B) == c(B,A)和自连接，c(A,A)不是必需的）

temp <- combn(list(A,B,C,D), 2)
threshold <- 7
L1 <- lapply(1:ncol(temp), function(x) Reduce("c", c(temp[1,x], temp[2,x])))

丢弃长度小于7的连接向量。我使用lengths（注意与length不同）来获取列表中所有向量的长度

L2 <- L1[lengths(L1) >= threshold]

输出

[[1]]
 [1] 5 5 5 5 5 5 5 6 6 6

[[2]]
 [1] 5 5 5 5 5 5 5 7 7 7 7

[[3]]
 [1] 5 5 5 5 5 5 5 8 8 8 8

[[4]]
[1] 6 6 6 7 7 7 7

[[5]]
[1] 6 6 6 8 8 8 8

[[6]]
[1] 7 7 7 7 8 8 8 8