随机采样100次，将数据集放入列表中

Question

我有一个带有多个ID的数据集，看起来像这样（缩短版本）：

  ID        Value
  bear 1      1
  bear 1      2
  bear 1      5
  bear 2      2
  bear 2      3
  bear 2      1
  bear 2      1
  bear 2      4

我想每个ID号进行采样一行，然后将这些行分为数据框架，例如：

  ID        Value

  bear 1      2
  bear 2      1

我想将此随机采样100次，取结果100个数据集，并将其作为列表中的元素。

关于如何这样做的任何想法吗？使用某些apply（）/lapply（）/sapply（）函数或循环？

Answer 1

我们可以使用rerun与slice_sample - 重新运行复制采样的输出n times，然后返回list list < /代码>

library(purrr)
library(dplyr)
n <- 100
rerun(n, df1 %>%
             group_by(ID) %>% 
             slice_sample(n = 1) %>%
             ungroup)