#文件的读取
filest <- list.files(pattern = "*.txt")#读取TXT结尾的文件
filelent <- length(filest)#看读取了多少个这个类型的文件
newdatat <- c()#创建一个空的数据框来存放数据
for(i in 1:length(filest)){
temp <-read.table(filest[i],header = T,sep = "\t")
newdatat = rbind(newdatat,temp)
}#利用for循环来读取文件，并将文件按照行来进行合并，并存到newdatat的数据框中
names(newdatat) <- c("Protein.accession")#数据框的命名，可有可无
write.table(x = newdatat,file = "DEG1",append = F,quote = FALSE,sep = "\t")#将合并后的数据导出来
newdata1 <- newdatat[!duplicated(newdatat$Protein.accession),]#利用duplicated函数进行删除某一列中的重复值
length(newdata1)#查看删除之后还有多少行
write.table(x = newdata1,file = "DEG.txt",append = F,quote = FALSE,sep = "\t")#最终文件的输出
