library(dplyr)
setwd('C:\\Users\\86187\\Desktop\\Microbiota\\gwas data\\metabolites')
a = list.files()#读取文件名列表
dir <- paste("./",a,sep="") #构建变量名
n <- length(dir)
merge.data <- read.csv(file = dir[1],header=T,sep="\t")
merge.data <- cbind(dir[1], merge.data )#左侧增加列/cbind( merge.data, dir[1])#右边增加列
colnames(merge.data)[1]='metabolites'#更改列名
for (i in 2:60){
new.data <- read.csv(file = dir[i], header=T, sep="\t")
new.data <- cbind(dir[i], new.data)
colnames(new.data)[1]='metabolites'
merge.data <- rbind(merge.data,new.data)
}
write.table(merge.data,file = 'fecal_metabolites.txt',row.names = F,sep = '\t',quote = F)