批量处理一个文件夹里面的文件前几行加表头

a<-readLines("C:/Users/Zhangjs/Desktop/sty2.txt")

category_name <- list.files()

dir = paste("./",category_name,sep="")

n = length(dir)

for(i in 1:n){

  data<-readLines(dir[i])

  c <- c(a,data)

  write.table(c,paste0("F:/佳敏的课题/3_QuantiSNP/Output_Data/500K_GSE74704_LRR_BAF/",category_name[i],".txt"),

              quote=F,row.names=F,col.names=F)

  print(i)

}