注：可以用于其他格式文件，只要把所有的vcf改为其他相应的格式

1.清空R中环境变量

2.设置路径(.vcf格式文件所在文件夹)

setwd("/Users/bcl/Desktop/structure/variant")

3.生成.vcf文件的列表

myvcffile=list.files(pattern="*.vcf")       

4.将列表中文件读入环境空间并以文件名作为变量名

list2env(lapply(setNames(myvcffile,make.names(gsub("*.vcf$","", myvcffile))),read.table,header=TRUE,check.names=FALSE),envir =.GlobalEnv)

5.查看环境变量，移除无用的环境变量

ls()                //查看当前环境变量
rm("myvcffile")   //移除环境变量
ls()                    //查看移除后的环境变量

6.把环境变量赋给一个变量并查看

y<-ls()                                       
y