将我的样本子集并保存在循环中

Question

我有一个包含10行和2个列的简单数据集

我想做的是从我的数据中抽取10行而不需要替换 然后将这个新的子样本存储为10个不同的名称。

这就是我所拥有的：

for (i in 1:10){

    print(Data[sample(nrow(Data), size = 5, replace= FALSE),] -> i)
    write.table(i, file = "data_i", row.names = F, col.names = F)
}

但是在新表格中，我只在我的数据集的每个值中获得一个子样本和" "。

Answer 1

您在循环内重新分配循环变量i。另外，您只有一个文件名，因此文件将被多次覆盖。试试这个：

  for (i in 1:10){
    print(Data[sample(nrow(Data), size = 5, replace= FALSE),] -> x)
    write.table(x, file = paste0("data_", i), row.names = F, col.names = F)
  }