如何从R中循环的每次迭代中输出编号的数据帧

我试图处理一些文件，其中有基因注释列。我希望从循环的每个迭代中输出一个数据帧，以便最终可以分别处理每个数据帧（理想情况下，数据帧应该被称为它来自的文件名）。我已经附加了我的工作函数，但我不知道如何从每次迭代中输出命名的数据帧

library(gridExtra)


#LP6007427.DNA_PolyATClusters<-read.delim("U:\\Batch1\\LP6007427-DNA_PolyATClusters.csv",sep=",")
setwd("U:/Batch1/")
path = "U:\\Batch1\\"
path2 = "U:\\bed_extract\\"
filename <- dir(path, pattern =".csv")

pltList <- list()

for(i in 1:length(filename)){


  file <- read.delim(filename[i],header=FALSE,sep=',')
  row.names(file)<-NULL


  file<-file[-c(1:25),]
  write.table(i)


  Pusung<-data.frame(file[1],file[2],file[3],file[4],file[8])
  names(Pusung)<-c("chr","Start","End","Type","Gene")

  library(stringr)
  Pusung$chr<-gsub("chr","",Pusung$chr)
  Pusung$chr <- factor(as.integer(Pusung$chr), levels=unique(Pusung$chr))
  Pusung$Type<-gsub("J","Barr",Pusung$Type)
  Pusung$Type<-gsub("T","Tumour",Pusung$Type)

  PusungTumour <- as.data.frame(Pusung[grep("Barr", Pusung$Type, invert=TRUE), ])
  PusungShared<-as.data.frame(subset(Pusung,grepl('Barr', Type) & grepl('Tumour', Type)))
  PusungBarr <- as.data.frame(Pusung[grep("Tumour", Pusung$Type, invert=TRUE), ])

  PusungTumour$Type<-gsub('.*',"Tumour",PusungTumour$Type)
  PusungTumour[PusungTumour==""]<-NA
  Intergenic_Tum<-subset(PusungTumour,!is.na(PusungTumour$Gene))
  Intragenic_Tum<-subset(PusungTumour,is.na(PusungTumour$Gene))


  PusungBarr$Type<-gsub('.*',"Barr",PusungBarr$Type)
  PusungBarr[PusungBarr==""]<-NA
  Intergenic_Barr<-subset(PusungBarr,!is.na(PusungBarr$Gene))
  Intragenic_Barr<-subset(PusungBarr,is.na(PusungBarr$Gene))


  PusungShared$Type<-gsub('.*',"Shared",PusungShared$Type)
  PusungShared[PusungShared==""]<-NA
  Intergenic_Shared<-subset(PusungShared,!is.na(PusungShared$Gene))
  Intragenic_Shared<-subset(PusungShared,is.na(PusungShared$Gene))

  PusungBound<-rbind(Intragenic_Barr,Intragenic_Tum)
  PusungBound<-rbind(PusungBound,Intragenic_Shared)
}


do.call(grid.arrange, pltList)

库（gridExtra）
#LP6007427.DNA\u polyatclusters将它们放在列表中，就像将绘图放在列表中一样。或者说“输出”是指您想要文件？在遵循代码时遇到问题。最后，您使用了
pltList
，但您在哪里创建此列表？此外，绘图和绘图列表似乎与您的问题无关。您好，Gregor。输出应该是数据文件。jlhoward，pltList定义在代码的顶部。是的，Gregor绘图是不相关的，当您需要循环中的类似于
write.csv（x=PusungBarr，file=paste0（“pusung”，I，.csv））
的行时，我将删除它。