抱歉,发现之前贴上来的代码不知道怎么没有保存上,还是重新给你直接贴一个吧,也许你已经找到了更好的方法,还是打算贴上来。
for (i in 1:10){
assign(paste0("sample_date", i), alldata[sample(nrow(alldata), 5, replace = F), ])
temp <- eval(parse(text = paste0("sample_date", i, "$class")))
print(table(temp))
}