深夜帮老婆写代码

rm(list = ls())
setwd('/Users/zhangjuxiang/Desktop/origin data') #设置路径
library(tidyverse)

txt_files <- list.files(pattern = '*.txt')
txt_files <- txt_files[grep('N',txt_files)]  #改文件字母
n = length(txt_files)

for (i in 1:n)
{ dt <- read.table(txt_files[i],header = FALSE,sep = ' ') 
  Q1 <- which(grepl('^417.*',dt[,1]))   #改整数位数字
  Q2 <- max(dt[Q1,2])
  Q3 <- Q1[which(dt[Q1,2] == Q2)]
  Q4 <- dt[Q3,]
  Q4[,3] <- txt_files[[i]]
  as.data.frame(Q4)
  write.table(Q4,file = 'N 417 out.csv',sep = ',',append = TRUE)  #改输出文件名
}