R语言实现对多个后缀为.xyz的文件进行操作，并转换为.csv格式的代码

rm(list=ls())#清除前面的数据

file <- list.files(pattern=".xyz")#得到文件夹中后缀为.xyz的所有文件
n = length(file)

index=list()#定义列表
v=array()#定义数组
options(digits=9)#设定数据的位数为9位
v1=array()
li=array()
for(i in 1:n){#对每个文件进行操作
  index1<-read.csv(file[i])#读取第i个文件
  index=append(index,index1)
  v=array()
  l=as.numeric(as.character(index[i]$X20[1]))#将第i个文件中列表名为X20中的内容转化为数字格式
  li=append(li,l)

   for(j in 2:21){
    x=index[i]$X20[j]
    s1=as.numeric(as.character(substr(x,9, 19)))
    v=append(v,s1)
    s2=as.numeric(as.character(substr(x,26,36)))
    v=append(v,s2)
    s3=as.numeric(as.character(substr(x,43,53)))
    v=append(v,s3)
    
  }
  v=v[-1]
  v1=rbind(v1,v)
}
v1=v1[-1,]
li=li[-1]
v1=cbind(li,v1)
write.csv(v1,file = "Audata.csv",row.names = F)#将文件Audata.csv写进电脑里