R语言 多个数据框循环与提取，改每个数据框变量名

#新变量的代码,导出复制到新Untitled执行
#【生成新tax】
a=list()
for (i in seq_along(files)){
  a[[i]]=cbind(assign(paste0('q',i),
                    gsub('W',files[i],"W$tax <- paste(W$name,'=',W$taxID)")))
  }
a
a2 <- unlist(a)
a2 <- as.data.frame(a2)
write.csv(a2,'w1.csv')

##【保留两个变量】
#b <- b[,c('tax','numUniqueReads')]
b=list()
for (i in seq_along(files)){
  b[[i]] <- cbind(assign(paste0('q',i), 
                         paste0(files[i], '<-', files[i],
                                "[,c('tax','numUniqueReads')]")))
}
b
b2 <- unlist(b)
b2 <- as.data.frame(b2)
write.csv(b2,'w2.csv')

#改名字
#names(a)[2] <- 'Control105A'
c <- list()
for (i in seq_along(files)){
  c[[i]] <- cbind(assign(paste0('q',i), 
                         paste0('names(',files[i], ')[2] <- ','"', files[i])))
}
c
c2 <- unlist(c)
c2 <- as.data.frame(c2)
c2
c2[,1] <- sub(pattern = "_report$", replacement = "\1", c2[,1]) 
c2
c2[,1] <- paste0(c2[,1],'"')
c2
write.csv(c2,'w3.csv')