可以使用assign()函数

谢谢，不过您能否再具体一些，还是不太会用。R小白一枚

sample_names = paste0("samp", 1:10)
for (sample_name in sample_names) assign(sample_name, sample(1:10,2))

以上只是简单示例，你需要把sample(1:10,2)的部分改为你从数据库中取出样本的R命令

非常感谢！您的代码确实实现了重复命名。
不过我还是挺笨的，没有办法实现循环。
下面是我编的代码，
samp_names <- paste0("samp",1:nrow(x))
for (sample_name in sample_names) assign(sample_name, x[sample(1:nrow(x),nrow(x),replace=TRUE),])
{
   a[m]<-0
   b[m]<-0
   c[m]<-0
   d[m]<-0
   e[m]<-0
   f[m]<-0
for (i in 1:nrow(x))
  { if(samp_name$snp==1 & samp_name$group==0) a[m]<-a[m]+1
   else if(samp_name$snp==2 & samp_name$group==0) b[m]<-b[m]+1
   else if(samp_name$snp==3 & samp_name$group==0) c[m]<-c[m]+1
   else if(samp_name$snp==1 & samp_name$group==1) d[m]<-d[m]+1
   else if(samp_name$snp==2 & samp_name$group==1) e[m]<-e[m]+1
   else if(samp_name$snp==3 & samp_name$group==1) f[m]<-f[m]+1
}
at[m]<-((e*a)/(d*b))
aa[m]<-((f*a)/(d*c))
}

还请看看问题在哪里，谢谢！