r - 2 つのベクトルのすべての組み合わせをクロス ペーストする方法 (各対) は?

Question

2 つの文字ベクトルの要素のすべての組み合わせを「each」から「each」に貼り付ける必要があります。

> 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場合よりも遅くなる可能性がありますが、一方で、次の一般化が可能になります。xy

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

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