Question

我需要粘贴两个字符向量中的所有元素组合，“每个”到“每个”：而不是

> paste0(c("a", "b"), c("c", "d"))
[1] "ac" "bd"

我想要

[1] "ac" "ad" "bc" "bd"

我该怎么做？

感谢。

Answer 1

你也可以这样做：

outer(c("a", "b"), c("c", "d"), FUN = "paste0")[1:4]
[1] "ac" "bc" "ad" "bd"

do.call和outer都是有价值的功能。：）

或者，我们可以分配

x <- outer(c("a", "b"), c("c", "d"), FUN = "paste0")
dim(x) <- NULL
x
[1] "ac" "bc" "ad" "bd"

不知道长度。

更多编辑！

x <- outer(c("a", "b"), c("c", "d"), FUN = "paste0")
y <- t(x)
dim(y) <- NULL
y
[1] "ac" "ad" "bc" "bd"

获取所需的顺序。

Answer 2

试试这个：

x <- c("a", "b")
y <- c("c", "d")

do.call(paste0, expand.grid(x, y))
# [1] "ac" "bc" "ad" "bd"

当outer和x很长时，它可能比y慢，但另一方面，它允许以下概括：

z <- c("e", "f")

do.call(paste0, expand.grid(x, y, z))
# [1] "ace" "bce" "ade" "bde" "acf" "bcf" "adf" "bdf"

Answer 3

另一种（不太普遍有用）的咒语：

levels(interaction(x,y,sep=""))
# [1] "ac" "bc" "ad" "bd"

Answer 4

这也可以使用。

comb <- function(x,y) 
         {
          x1 <- rep(x, each=length(y))
          y1 <- rep(y, times=length(x))
          paste0(x1,y1)
         }
comb(2:4, 5:7)

如何交叉粘贴两个向量的所有组合（每个到每个）？

4 个答案: