For Loop over Lapply（或使用 map2）

Question

您好，我正在尝试遍历数据帧列表并从数据帧中提取不同大小的样本。例如，对于 df1，我想要一个大小为 10 的样本，df2 是一个大小为 8 的样本，等等。我曾与 Melissa Key 在我之前提出的问题上合作开发以下代码：

sampler <- function(df, n,...) {
  return(df[sample(x=nrow(df),n),])
}

#for(i in 1:totalstratum){
sample_list<-lapply(population_list,sampler,n=stratum_sizes[i,1])
#}

#or
library(purrr)
sample_list<-map2(population_list, stratum_sizes,sampler)

其中stratum_sizes是一个向量{4,5,3,2,10,10,8}和totalstratum=nrow(stratum_sizes)，它也等于列表population_list中的元素个数。

到目前为止，我能够获得一个样本，但从来没有正确的观察次数。有任何想法吗？提前感谢您的帮助！

Answer 1

我假设您想从存储在list 中的data.frames 中抽取一定数量的行。

下面使用map2怎么样：

# Generate sample data
# Here: A list of three data.frames
set.seed(2017);
lst <- lapply(1:3, function(x) data.frame(val1 = runif(20), val2 = runif(20)))

# Define the sample sizes for every data.frame in the list
ssize <- c(10, 5, 3)

# Sample ssize entries from every data.frame in the list
map2(ssize, lst, ~ .y[sample(nrow(.y), .x), ])
#[[1]]
#         val1      val2
#16 0.38868193 0.6500038
#8  0.43490560 0.3191046
#11 0.67433148 0.8838444
#7  0.03932234 0.6204450
#2  0.53717641 0.3798674
#3  0.46919565 0.9420740
#19 0.94099988 0.1771317
#5  0.77008816 0.2276118
#10 0.27383312 0.2608393
#14 0.43207779 0.2117630
#
#[[2]]
#        val1      val2
#12 0.8835366 0.6904628
#4  0.0791699 0.7512366
#6  0.5096950 0.4699963
#19 0.5393251 0.4123170
#20 0.9229542 0.9327490
#
#[[3]]
#        val1      val2
#4  0.9204118 0.1926415
#15 0.8373573 0.9309950
#8  0.1653395 0.5895154