如何对单词列表执行随机播放？ [复制]

Question

我想使用 permute::shuffle/shuffleSet() 或任何其他函数对 R 中的单词列表进行随机播放。

代码：

require(permute)
a <- c("Ar","Ba","Bl","Bu","Ca")
x <- list(a)
x
shuffleSet(x)
shuffle(x)

但是当我尝试这段代码时，我得到了错误

shuffleSet : Error in seq_len(n) : argument must be coercible to non-negative integer

shuffle : Error in factor(rep(1, n)) : 
  (list) object cannot be coerced to type 'integer'

permute::shuffle/shuffleSet() 应该只用于整数吗？如何对上述列表执行随机播放？有没有其他功能可以做到这一点？

Answer 1

为什么不使用样本？

     > a <- c("Ar","Ba","Bl","Bu","Ca")
     > a
     [1] "Ar" "Ba" "Bl" "Bu" "Ca"
     > x <- list(a)
     > x
     [[1]]
     [1] "Ar" "Ba" "Bl" "Bu" "Ca"
     > x[[1]][sample(1:length(a))]
     [1] "Ba" "Bu" "Ar" "Bl" "Ca"

Answer 2

如果要生成整个 shuffle 集，而不是随机排列，可以尝试以下方法：

require(permute)
a <- c("Ar","Ba","Bl","Bu","Ca")
x <- list(a)
y <- shuffleSet(as.factor(x[[1]]), quietly=TRUE)
y[] <- sapply(y, function(x) a[x])
y <- as.data.frame(y)
> head(y)
#  V1 V2 V3 V4 V5
#1 Ar Ba Bl Ca Bu
#2 Ar Ba Bu Bl Ca
#3 Ar Ba Bu Ca Bl
#4 Ar Ba Ca Bl Bu
#5 Ar Ba Ca Bu Bl
#6 Ar Bl Ba Bu Ca

希望这会有所帮助。

Answer 3

这实际上是对其他答案的后续 - 去投票他们两个，而不是这个。

如果您只想随机排列观察向量，则来自基本 R 安装的 sample() 可以正常工作（如 @t.f 在他们的回答中所示）：

a <- c("Ar","Ba","Bl","Bu","Ca")
x <- list(a)
sample(a)
sample(x[[1]])

> sample(a)
[1] "Ca" "Bu" "Ba" "Ar" "Bl"
> sample(x[[1]])
[1] "Bl" "Ba" "Bu" "Ar" "Ca"

请注意，您不需要sample(1:length(a)) 或使用它来索引x[[1]]； sample() 如果你给它一个向量作为输入，它会做正确的事情，如上所示。

shuffle() 和 shuffleSet() 被设计为限制排列的接口，但它们需要将完全随机化作为一种​​特殊情况来处理，因此如果你深入挖掘，你会发现 shuffle 或 shuffleSet 调用 @ 987654330@ 和内部使用 sample.int() （出于效率原因，但出于所有意图和目的，这是对 sample() 的调用，只是更明确地设置了所有参数。）

因为这两个函数是为更一般的问题而设计的，所以我们只需要知道要迭代的观察次数；因此，两者的第一个参数应该是观察的数量。如果你向他们传递一个向量，那么作为一点点糖，我只需根据对象的大小（向量的长度，矩阵的 nrow 等）计算n。

@RHertel 注意到shuffleSet() 在这个例子中生成了集合a 的所有排列。这是由于在排列集较小时尝试提供更好的随机排列的启发式方法。生成所有排列集的更直接方法是通过allPerms()：

> head(allPerms(seq_along(a)))
     [,1] [,2] [,3] [,4] [,5]
[1,]    1    2    3    5    4
[2,]    1    2    4    3    5
[3,]    1    2    4    5    3
[4,]    1    2    5    3    4
[5,]    1    2    5    4    3
[6,]    1    3    2    4    5

请注意 allPerms(a) 不起作用，因为 a 属于 "character" 类，并且没有 nobs() 方法（但我会在 permute中修复它> 所以它会在未来工作。）

shuffle 和shuffleSet 返回要置换的事物的索引 的置换，而不是置换的元素本身；事实上，他们从未真正了解您想要置换的实际元素/事物。因此@RHertel 使用sapply 调用将置换索引应用于a。一种更快的方法是存储排列，然后将a 的元素插入回排列矩阵中，由排列矩阵索引：

perms <- allPerms(seq_along(a)) # store all permutations
perms[] <- a[perms]             # replace elements of perms with shuffled elements of a

> perms <- allPerms(seq_along(a))
> perms[] <- a[perms]
> head(perms)
     [,1] [,2] [,3] [,4] [,5]
[1,] "Ar" "Ba" "Bl" "Ca" "Bu"
[2,] "Ar" "Ba" "Bu" "Bl" "Ca"
[3,] "Ar" "Ba" "Bu" "Ca" "Bl"
[4,] "Ar" "Ba" "Ca" "Bl" "Bu"
[5,] "Ar" "Ba" "Ca" "Bu" "Bl"
[6,] "Ar" "Bl" "Ba" "Bu" "Ca"

这里的效率在于替换是在对<-.[() 的单个函数调用中完成的，而不是对[() 的单独调用。你需要 [] 上的 perms 否则你会覆盖 perms 而不是替换就地。