r - 洗牌向量 - 样本()的所有可能结果？

Question

我有一个包含五个项目的向量。

my_vec <- c("a","b","a","c","d")

如果我想将这些值重新排列成一个新的向量(随机播放)，我可以使用sample():

shuffled_vec <- sample(my_vec)

简单 - 但sample()函数只给我一种可能的洗牌。 如果我想知道所有可能的洗牌组合怎么办？各种“combn”函数似乎没有帮助，而expand.grid()给了我所有可能的组合< em>有更换，当我需要时没有更换。最有效的方法是什么？

请注意，在我的向量中，我有两次值“a” - 因此，在返回的打乱向量集中，它们都应该有两次“a”。

Answer 1

我认为组合包中的permn可以满足您的需求

library(combinat)
permn(my_vec)

一个较小的例子

> x
[1] "a" "a" "b"
> permn(x)
[[1]]
[1] "a" "a" "b"

[[2]]
[1] "a" "b" "a"

[[3]]
[1] "b" "a" "a"

[[4]]
[1] "b" "a" "a"

[[5]]
[1] "a" "b" "a"

[[6]]
[1] "a" "a" "b"

如果重复项是一个问题，您可以执行类似的操作来消除重复项

strsplit(unique(sapply(permn(my_vec), paste, collapse = ",")), ",")

或者可能是删除重复项的更好方法......

dat <- do.call(rbind, permn(my_vec))
dat[duplicated(dat),]