r - 如何合并一个向量列表(在 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