时间戳

首页 > 解决方案 > 使用crossing和sample_n对多个不同的样本大小进行采样以创建单个df

r - 使用crossing和sample_n对多个不同的样本大小进行采样以创建单个df

问题描述

我正在尝试使用 sample_n 对数据帧进行采样。我知道 sample_n 通常一次只需要一个 size= 参数，但是，我想对 df 中从 2 到最大行数的大小进行采样。不幸的是，我在下面编译的代码不能完成这项工作。所需的输出将是一个带有 id= 列的数据框，或者是一个除以来自 cross() 的 id 列的列表。

df <- data.frame(Date = 1:15,
                 grp = rep(1:3,each = 5), 
                 frq = rep(c(3,2,4), each = 5))

data_sampled_by_stratum <- df %>%
  group_by(Date) %>%
  crossing(id = seq(500)) %>% # repeat dataframes
  group_by(id) %>%
  sample_n(size=c(2:15)) %>% 
  group_by(CLUSTER_ID,Date) %>% filter(n() > 2)

标签： rrandomtidyrunnest

解决方案

如果您有一个包含不同站点的专栏，您可以这样做。

data_sampled_by_stratum <- data_grouped_by_stratum %>%
    group_by(siteid, Date) %>%
    crossing(id = seq(500)) %>% # repeat dataframes
    sample_n(rbinom(1,sum(siteid==i),(1-s)^2))

推荐阅读