R 每个向量条目的所有排列

Question

我有一个向量

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

拆分条目

str_split(x, " ")

我想得到每个分割向量条目的所有排列，所以结果应该是

c("a b c", "b c a", "c a b", "a c b", "b a c", "c b a", "d e", "e d")

我尝试使用函数

permutations(n, r, v=1:n, set=TRUE, repeats.allowed=FALSE)

Answer 1

在str_split 步骤之后，您可以使用combinat::permn 创建字符串的所有可能排列并将它们粘贴在一起。

result <- unlist(sapply(strsplit(x, " "), function(x) 
                 combinat::permn(x, paste0, collapse = " ")))
result
#[1] "a b c" "a c b" "c a b" "c b a" "b c a" "b a c" "d e"   "e d"  

Answer 2

您可以尝试pracma::perms，如下所示

unlist(
  Map(
    function(v) do.call(paste, as.data.frame(pracma::perms(v))),
    strsplit(x, " ")
  )
)

给了

[1] "c b a" "c a b" "b c a" "b a c" "a b c" "a c b" "e d"   "d e"