按行和列排列數據幀

Question

有人知道如何隨機化我的數據框中的所有數據？ 我的意思是，我會得到一個新的數據框，其中按行和列排列數據，以獲得具有與第一個數字相同的數字的偶然新數據框。

類似這樣的：

謝謝！

Answer 1

這將是一個很大更快地做到這一點的一個矩陣：

dm <- matrix(1:25, ncol = 5); dm 
dm[] <- sample(dm); dm 

編輯：這是錯誤的：「我敢肯定，第一個置換的列，然後在列應該 給出與排列整個矢量相同的結果，然後重新定形到原始尺寸。「 < \ S>

的「辛普森方法」將得到不同的結果，可能是被什麼要求（但它會更快了矩陣測試平臺，如果這是作爲一個仿真努力的一部分來完成）：

dm <- dm[ sample(nrow(dm)), sample(ncol(dm)) ] 

Answer 2

只需使用sample()分別對行數和列數進行索引，結果來自sample()。

df <- data.frame(matrix(1:25, ncol = 5)) 

permDF <- function(x) { 
    nr <- nrow(x) 
    nc <- ncol(x) 
    x[sample(nr), sample(nc)] 
} 

> permDF(df) 
    X3 X4 X2 X1 X5 
4 14 19 9 4 24 
5 15 20 10 5 25 
1 11 16 6 1 21 
3 13 18 8 3 23 
2 12 17 7 2 22 
> permDF(df) 
    X1 X2 X4 X3 X5 
2 2 7 17 12 22 
4 4 9 19 14 24 
1 1 6 16 11 21 
3 3 8 18 13 23 
5 5 10 20 15 25 

請注意，這將行和列中的值保持在一起，但列和行的順序不同。如果您希望數據集完全隨機化，那麼數據框並不是一個簡單的方法。我會做這個使用矩陣，但它需要多一點的工作，因爲@DWin顯示

mat <- matrix(1:25, ncol = 5) 
pmat <- mat 
set.seed(42) 
pmat[] <- mat[sample(length(mat))] 
pmat 

> pmat 
    [,1] [,2] [,3] [,4] [,5] 
[1,] 23 11 24 10 5 
[2,] 25 21 20 9 8 
[3,] 7 3 13 1 18 
[4,] 19 12 4 16 2 
[5,] 14 17 6 15 22 

你可以做什麼，我用在與基體相同的方式將數據幀使用略有不同的索引到做一個以上

mat[sample(nrow(mat)), sample(ncol(mat))] 

> set.seed(42) 
> mat[sample(nrow(mat)), sample(ncol(mat))] 
    [,1] [,2] [,3] [,4] [,5] 
[1,] 15 25 5 10 20 
[2,] 14 24 4 9 19 
[3,] 11 21 1 6 16 
[4,] 12 22 2 7 17 
[5,] 13 23 3 8 18