我有392行4列的数据框。 我要随机抽样100行。
sample100 <-data [sample（nrow（data），100），]
那很容易。
但是现在我想做1000次。 然后我要在一个唯一的file.csv文件中写入1000个样本 基本上是这样：
sample100_1 <-data [sample（nrow（data），100），] write.csv（sample100_1，file =“ sample100_1.csv”）
sample100_2 <-data [sample（nrow（data），100），] write.csv（sample100_2，file =“ sample100_2.csv”）
sample100_3 <-data [sample（nrow（data），100），] write.csv（sample100_3，file =“ sample100_3.csv”）
但是有1000次并且是唯一的.csv
谢谢。