如何根据样本大小获取不同的样本

Question

我有一个这样的样本：

​

V   echo
A   2
D   4
N   12
P   6
D   4
P   2
N   3
A   1

​

我想得到三个数据帧样本(n=20，n=50，n=100)，在此基础上进行替换，然后计算每个样本的平均值和SD。

Answer 1

循环这些数字

sapply(c(20, 50, 100), function(x) {
     x1 <- sample(df1$echo, x, replace = TRUE)
     c(Mean = mean(x1), SD = sd(x1))})

如果我们想返回3个数据集示例

lst1 <- lapply(c(20, 50, 100), function(x) {
            i1 <- sample(seq_len(nrow(df1)), x, replace = TRUE)
            df1[i1, , drop = FALSE]
})

Answer 2

你是说像下面这样的东西吗？

n <- c(20, 50, 100)
lapply(
    n,
    function(k) {
        df[sample(nrow(df), k, replace = TRUE), ]
    }
)

或者，我们可以使用split (可能比前面的选项更快)

split(
    df[sample(nrow(df), sum(n), replace = TRUE), ],
    rep(seq_along(n), n)
)