数据框中行的采样百分比为 1000 次，每次采样都有标识

【问题标题】：sample percentage of rows in dataframe for 1000 times with identificaton for each sampling数据框中行的采样百分比为 1000 次，每次采样都有标识
【发布时间】：2017-08-16 20:24:00
【问题描述】：

与this问题有关。

gender <- c("F", "M", "M", "F", "F", "M", "F", "F")
age    <- c(23, 25, 27, 29, 31, 33, 35, 37)
mydf <- data.frame(gender, age)

mydf[sample(nrow(mydf), round(0.25*nrow(mydf))),]

但我想要这个随机抽样 1000 次，并带有识别号。

例如，从这 1000 个随机样本中，我想调用第 5 个或第 70 个样本。我该怎么做？

【问题讨论】：

标签： r for-loop random

【解决方案1】：

我们可以通过replicate对其进行1000次采样以将其存储在list中

lst <- replicate(1000, mydf[sample(nrow(mydf), round(0.25*nrow(mydf))),] , simplify = FALSE)

然后，通过索引子集获取第 5 个和第 70 个list 元素

lst[c(5, 70)]

【讨论】：