颂歌>？（请注意，在您的问题中，您创建了data.frame，但实际上创建了data.table）。不幸的是，我不是数据表专家，我现在已经准备好了。谢谢你的一切，还有一件事。当我不包含以下代码段时，脚本工作正常lst[[I]][“Sample”]当包含它时

---

---

颂歌>？（请注意，在您的问题中，您创建了data.frame，但实际上创建了data.table）。不幸的是，我不是数据表专家，我现在已经准备好了。谢谢你的一切，还有一件事。当我不包含以下代码段时，脚本工作正常

lst[[I]][“Sample”]当包含它时会发生什么？什么错误消息？这里是我收到的另一个错误“error in
[.data.table
（x，I，which=TRUE）：当我是data.table（或字符向量）时，x必须键入（即排序，并标记为排序），以便data.table知道要连接到哪些列并利用x被排序的优势。首先调用setkey（x，…），请参阅？setkey。“那么，您使用
data.table
而不是
data.frame
有什么原因吗？（请注意，在您的问题中，您创建了data.frame，但实际上创建了data.table）.不幸的是，我不是数据表专家..我现在一切都准备好了。感谢agian所做的一切。非常感谢您的输入。代码运行良好，非常概念化。“示例”变量也出现在我的最终输出中。非常感谢您的输入。代码运行良好，非常概念化。“示例”变量也出现在我的最终输出中。th非常感谢您的输入。代码非常好，非常概念化。“示例”变量也出现在我的最终输出中。非常感谢您的输入。代码非常好，非常概念化。“示例”变量也出现在我的最终输出中。
## Creates data frame
df = as.data.table(data)

## Select sample size
sample.size = 5

## Creates Sample 1 (Size 5)

    Sample.1<-df[, 
     Dollars[sample(.N, size=sample.size, replace=TRUE)], by = Num]
    Sample.1$Sample <- c("01")

## Creates Sample 50 (Size 5)

   Sample.50<-df[, 
     Dollars[sample(.N, size=sample.size, replace=TRUE)], by = Num]
   Sample.50$Sample <- c("50")

Num  Dollars   Sample
  1    85000       01
  1     4900       01
  1    18000       01
  1     6900       01
  1    11000       01
  1     8800       50
  1     3800       50
  1    10400       50
  1     2200       50
  1    29000       50

Num  Dollars   Sample
  1    85000       01
  1     4900       01
  1    18000       01
  1     6900       01
  1    11000       01
  1     9900    10000
  1     8300    10000
  1    10700    10000
  1     6800    10000
  1    31000    10000

Num Dollars
1   31002
1   13728
1   23526
1   80068
1   86244
1   9330
1   27169
1   13694
1   4781
1   9742
1   20060
1   35230
1   15546
1   7618
1   21604
1   8738
1   5299
1   12081
1   7652
1   16779

lst <- list()

for(i in seq_len(3)){
  lst[[i]] <- df[sample(seq_len(nrow(df)), 5, replace = TRUE),]
  lst[[i]]["Sample"] <- i
}

> lst
[[1]]
     Num Dollars Sample
20     1   16779      1
1      1   31002      1
12     1   35230      1
14     1    7618      1
14.1   1    7618      1

[[2]]
     Num Dollars Sample
9      1    4781      2
13     1   15546      2
12     1   35230      2
17     1    5299      2
12.1   1   35230      2

[[3]]
   Num Dollars Sample
1    1   31002      3
7    1   27169      3
17   1    5299      3
5    1   86244      3
6    1    9330      3

do.call(rbind, lst)
     Num Dollars Sample
20     1   16779      1
1      1   31002      1
12     1   35230      1
14     1    7618      1
14.1   1    7618      1
9      1    4781      2
13     1   15546      2
121    1   35230      2
17     1    5299      2
12.1   1   35230      2
11     1   31002      3
7      1   27169      3
171    1    5299      3
5      1   86244      3
6      1    9330      3

df = as.data.table(data)

## Select sample size
sample.size = 5
n.samples = 10000

# Sample and assign groups
draws <- df[sample(seq_len(nrow(df)), sample.size * n.samples, replace = TRUE), ]
draws[, Sample := rep(1:n.samples, each = sample.size)]