Question

我有一些数据是由矩阵A

表示的一些高通量基因数据

          C1 C2 C3 C4
 Gene A   3  5  7  4
 Gene B   2  4  9  3
 Gene C   1  6  8  5

我希望不断随机化这个矩阵，比如10次，并将每个新的随机矩阵保存为R中的新对象。所以我会将A随机化为A1，{{1 }}，... A2然后我可以随时保存这些检索A10，... A1。我知道我可以使用A10给A行A1 <- A[,sample(ncol(A))]行随机化A1，这可能如下所示：

         [1] [2] [3] [4] 
Gene A    5   3   4   7  
Gene B    9   4   3   2
Gene C    5   8   6   1

是否可以自动生成更多的A行排列，而不是一次又一次地手动输入该行代码？谢谢！

Answer 1

我们可以使用replicate随机化matrix'n'次。我们指定simplify=FALSE以获得list输出。

n <- 10
lst <- replicate(n, A[,sample(ncol(A))], simplify=FALSE)
names(lst) <- paste0('A', seq(n))
lst$A1
#       C1 C2 C4 C3
#Gene A  3  5  4  7
#Gene B  2  4  3  9
#Gene C  1  6  5  8

如果我们按行独立采样，正如评论中提到的@Frank，我们可以apply与MARGIN=1一起使用sample按行进行操作。我们可以将输出的列名更改为原始矩阵（'A'）的列名。

lst <- replicate(n, t(apply(A,1,sample)) , simplify=FALSE)
names(lst) <- paste0('A', seq(n))
lst <- lapply(lst, function(x) {colnames(x) <- colnames(A); x})
lst$A1
#       C1 C2 C3 C4
#Gene A  7  4  3  5
#Gene B  2  4  9  3
#Gene C  5  8  1  6

数据

A <- structure(c(3L, 2L, 1L, 5L, 4L, 6L, 7L, 9L, 8L, 4L, 3L, 5L), 
.Dim = 3:4, .Dimnames = list(
c("Gene A", "Gene B", "Gene C"), c("C1", "C2", "C3", "C4")))

多次随机化矩阵

1 个答案:

数据