是否有一个函数可以连接向量中的所有元素？

Question

我制作了一个如下所示的向量：

v1 <- c("1 1","1 2","1 3",
        "2 1","2 2","2 3",
        "3 1","3 2","3 3",
        "4 1","4 2","4 3",
        "5 1","5 2","5 3",
        "6 1","6 2","6 3")

它可以被称为v1。

我想要的结果是 "1 1 1 1" "1 1 1 2" .... "6 6 6 6" （总共应该是 6x3x6x3=360-36=324 到一个新的向量 v2 中）

然而，我已经尝试过apply(combn(v1, 2), 2, paste0, collapse=" ")，但还不完整。

我怎样才能实现目标？

Answer 1

获取所有组合，然后粘贴：

v2 <- do.call(paste, expand.grid(v1, v1))

检查输出：

head(v2)
# [1] "1 1 1 1" "1 2 1 1" "1 3 1 1" "2 1 1 1" "2 2 1 1" "2 3 1 1"
tail(v2)
# [1] "5 1 6 3" "5 2 6 3" "5 3 6 3" "6 1 6 3" "6 2 6 3" "6 3 6 3"    
length(v2)
# [1] 324