r - R中的多重随机抽样

Question

我目前有一个名为清算的数据框，我想从中运行 30 个随机样本，每个样本包含 1000 个观察值，指定哪个帐户来自哪个样本，然后将其组合成一个新的数据框，其中包含所有 30 个样本:

这是我在使用 dplyr 包进行随机采样时手动完成的，但为了可重复性而想对其进行简化:

Sample_1 <- liquidation %>%
  sample_n(1000)
Sample_1$Obs <- 1

Sample_2 <- liquidation %>%
  sample_n(1000)
Sample_2$Obs <- 2

Sample_3 <- liquidation %>%
  sample_n(1000)
Sample_3$Obs <- 3
....
Sample_30 <- liquidation %>%
  sample_n(1000)
Sample_30$Obs <- 30

然后我将它们全部组合成一个组合数据框:

Combined <- rbind(Sample_1, Sample_2,   Sample_3,   Sample_4,   Sample_5,   Sample_6,   Sample_7,   Sample_8,   Sample_9,   Sample_10,  
                  Sample_11,    Sample_12,  Sample_13,  Sample_14,  Sample_15,  Sample_16,  Sample_17,  Sample_18,  Sample_19,  
                  Sample_20,    Sample_21,  Sample_22,  Sample_23,  Sample_24,  Sample_25,  Sample_26,  Sample_27,  Sample_28,  
                  Sample_29,    Sample_30)

str(Combined)
'data.frame':   30000 obs. of  31 variables:

Answer 1

这是一个使用 mtcars 的示例(随机选择 5 行，10 次)

Combined <- bind_rows(replicate(10, mtcars %>% sample_n(5), simplify=F), .id="Obs")

我们使用基本函数 replicate() 重复采样多次。然后我们使用 dplyr 的 bind_rows() 来合并样本并跟踪它们来自哪个样本。