随机排列矩阵中的行，但在R中将组保持在一起

Question

我正在尝试按行随机分配一个较大的矩阵，但是我需要将特定列中的相同数字保持在一起。

例如：

# Table A
Column A       Column B
     0.1              1
     0.6              1
     1.5              1
      23              2
      18              2
     0.5              2
     0.6              3
      19              3
     0.7              3

我的目标是按组随机分组，在此示例中按Column B分组。 我已经尝试了sample.int(nrow(x)) ，它可以很好地将所有矩阵随机化，但是有没有一种按组做到这一点的方法？

Answer 1

一种非常简单的方法是使用“ data.table”，如下所示：

> library(data.table)
> as.data.table(mydf)[, .(Column_B = sample(Column_A)), by = Column_B]
   Column_B Column_B
1:        1      0.6
2:        1      1.5
3:        1      0.1
4:        2     23.0
5:        2     18.0
6:        2      0.5
7:        3      0.6
8:        3      0.7
9:        3     19.0

或更笼统地说：

as.data.table(mydf)[, sample(.SD), by = Column_B]

类似地，使用“ dplyr”：

library(dplyr)

mydf %>%
  group_by(Column_B) %>%
  mutate(Column_A = sample(Column_A))

Answer 2

如果不转换为data.frame / data.table且没有外部包，则可以将?ave与?sample结合使用：

mymat[ave(seq_along(mymat[, "Col_A"]), mymat[, "Col_B"], FUN = sample),]

样本数据：

set.seed(123)
mymat <- cbind(Col_A = rnorm(9), Col_B = rep(1:3, each = 3))