#文件的读取

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")#最终文件的输出