r - 为每一行打乱(随机化)数据

Question

我正在尝试重新排序/随机排列数据框每一行的值，但无法弄清楚如何执行此操作。请看下面的例子:

df1 #original data
#  X1 X2 X3 X4 X5
#1  1  2  3  4  5
#2  6  7  8  9 10
#3 11 12 13 14 15

生成的数据框应如下所示(无模式)。

df2 #each row is randomly shuffled
#  X1 X2 X3 X4 X5
#1  2  4  1  5  3
#2  6 10  9  7  8
#3 15 13 11 14 12

我试过使用 sample() 示例 here但这不是我想要的。 “按列随机播放”与我尝试做的最相似，但我想对每一行而不是整列执行 sample()。

Answer 1

我们可以使用data.table

library(data.table)
setDT(df1)[, as.list(sample(unlist(.SD))), .(rn = 1:nrow(df1))][, rn := NULL][]

注意:帖子中提到的 OP 是行采样。

和base R解决方案:

df1[] <- t(apply(df1, 1, sample))