如何合并矢量列表(在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