洗牌列值，但保持相同的矩阵列顺序

问题描述：

我怎么可以在每列洗牌矩阵m1值：洗牌列值，但保持相同的矩阵列顺序

初始：

m1=cbind(c(1,2,3),c(4,5,6),c(7,8,9))

做一些事情，：

m1=cbind(c(7,5,3),c(4,2,9),c(1,8,6))

谢谢

答

你可以请在每列上调用sample函数你的矩阵来将它洗：

set.seed(100) 
apply(m1, 2, sample) 
#  [,1] [,2] [,3] 
# [1,] 1 5 8 
# [2,] 3 4 9 
# [3,] 2 6 7

我要的是重新洗牌每一列的列值，所以对于第1列我洗牌值1,4和7. – jpcgandre 2014-09-06 08:29:13

@jpcgandre在你的问题中的例子，它看起来像你只是每洗牌w（也许你的意思是'rbind'而不是'cbind'作为第二个snippit？）。你是说你想改组第1行并将它存储在第1列中，将第2行存储在第2列中？如果是这样，只需从我的代码中删除't'。 – josliber 2014-09-06 08:34:25

好的就是这样！谢谢 – jpcgandre 2014-09-06 08:35:37

答

ehm，你的意思是在你的榜样？

洗牌的列表：

# create a list from 1 to 9 
x <- seq(1,9) 
# shuffle 
x[order(runif(length(x)))]

洗牌行/列的矩阵：

# example matrix 
m1 <- matrix(x,ncol=3) 
# shuffle by row 
for (i in 1:nrow(m1)) m1[i,] <- m1[i,order(runif(length(m1[i,])))] 
# shuffle by col 
for (i in 1:ncol(m1)) m1[,i] <- m1[order(runif(length(m1[i,]))),i]

编辑：也许sample比较好... http://stat.ethz.ch/R-manual/R-devel/library/base/html/sample.html

答

你也可以把sample矩阵指数和采样的行和列。

洗牌整个矩阵，

> m1[sample(nrow(m1)), sample(ncol(m1))] 
#  [,1] [,2] [,3] 
#[1,] 6 9 3 
#[2,] 5 8 2 
#[3,] 4 7 1

或者按行

> m1[sample(nrow(m1)), ] 
#  [,1] [,2] [,3] 
#[1,] 3 6 9 
#[2,] 1 4 7 
#[3,] 2 5 8

或者通过柱

> m1[,sample(ncol(m1))] 
#  [,1] [,2] [,3] 
#[1,] 7 4 1 
#[2,] 8 5 2 
#[3,] 9 6 3

'm1 [sample（nrow（m1）），]'有点奏效，但它保持每行相同的值，而对于（i in 1：ncol（m1））m2 [，i] jpcgandre 2014-09-06 09:06:01

您需要更具体地了解您想要的结果。 – 2014-09-06 09:08:11

我只是想在每一列上拖动矩阵“m1”的值。所以洗牌（1,4,7），（2,5,8）和（3,6,9）。 – jpcgandre 2014-09-06 09:23:35

洗牌列值，但保持相同的矩阵列顺序

相关推荐