R语言循环创建多个不同名字的数据框

我使用的鸢尾花数据，想要用循环语句进行多个数据框的赋值和输出

我尝试过下面的操作：

i=1
while(i<=4){
q<-srswr(nrow(train),nrow(train))
p<-(1:nrow(train))[q!=0]
n<-q[q!=0]
k<-rep(p,times=n)
x<-paste('D',i,sep="")
x<-train[k,]
i<-i+1
}
}

结果是对x的赋值，并不是输出D1、D2等并对他们添加内容：