深夜幫老婆寫代碼

rm(list = ls())
setwd('/Users/zhangjuxiang/Desktop/origin data') #設(shè)置路徑
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]))   #改整數(shù)位數(shù)字
  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)  #改輸出文件名
}
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 人面猴
    序言：七十年代末，一起剝皮案震驚了整個(gè)濱河市波丰，隨后出現(xiàn)的幾起案子，更是在濱河造成了極大的恐慌撼嗓，老刑警劉巖，帶你破解...
    沈念sama閱讀 211,884評(píng)論 6贊 492
  • 死咒
    序言：濱河連續(xù)發(fā)生了三起死亡事件兽叮，死亡現(xiàn)場(chǎng)離奇詭異灾锯，居然都是意外死亡吕朵，警方通過(guò)查閱死者的電腦和手機(jī)，發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 90,347評(píng)論 3贊 385
  • 救了他兩次的神仙讓他今天三更去死
    文/潘曉璐 我一進(jìn)店門键菱，熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái)谬墙，“玉大人，你說(shuō)我怎么就攤上這事经备∈锰В” “怎么了？”我有些...
    開(kāi)封第一講書人閱讀 157,435評(píng)論 0贊 348
  • 道士緝兇錄：失蹤的賣姜人
    文/不壞的土叔 我叫張陵侵蒙，是天一觀的道長(zhǎng)玖喘。 經(jīng)常有香客問(wèn)我，道長(zhǎng)蘑志，這世上最難降的妖魔是什么累奈？ 我笑而不...
    開(kāi)封第一講書人閱讀 56,509評(píng)論 1贊 284
  • ?港島之戀（遺憾婚禮）
    正文 為了忘掉前任，我火速辦了婚禮急但，結(jié)果婚禮上澎媒，老公的妹妹穿的比我還像新娘。我一直安慰自己波桩，他們只是感情好戒努，可當(dāng)我...
    茶點(diǎn)故事閱讀 65,611評(píng)論 6贊 386
  • 惡毒庶女頂嫁案：這布局不是一般人想出來(lái)的
    文/花漫 我一把揭開(kāi)白布。 她就那樣靜靜地躺著，像睡著了一般储玫。 火紅的嫁衣襯著肌膚如雪侍筛。 梳的紋絲不亂的頭發(fā)上，一...
    開(kāi)封第一講書人閱讀 49,837評(píng)論 1贊 290
  • 城市分裂傳說(shuō)
    那天撒穷，我揣著相機(jī)與錄音匣椰，去河邊找鬼。 笑死端礼，一個(gè)胖子當(dāng)著我的面吹牛禽笑，可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播蛤奥，決...
    沈念sama閱讀 38,987評(píng)論 3贊 408
  • 雙鴛鴦連環(huán)套：你想象不到人心有多黑
    文/蒼蘭香墨 我猛地睜開(kāi)眼佳镜，長(zhǎng)吁一口氣：“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼！你這毒婦竟也來(lái)了凡桥？” 一聲冷哼從身側(cè)響起蟀伸，我...
    開(kāi)封第一講書人閱讀 37,730評(píng)論 0贊 267
  • 萬(wàn)榮殺人案實(shí)錄
    序言：老撾萬(wàn)榮一對(duì)情侶失蹤，失蹤者是張志新（化名）和其女友劉穎缅刽，沒(méi)想到半個(gè)月后啊掏，有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體，經(jīng)...
    沈念sama閱讀 44,194評(píng)論 1贊 303
  • ?護(hù)林員之死
    正文 獨(dú)居荒郊野嶺守林人離奇死亡拷恨，尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 36,525評(píng)論 2贊 327
  • ?白月光啟示錄
    正文 我和宋清朗相戀三年脖律，在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片腕侄。...
    茶點(diǎn)故事閱讀 38,664評(píng)論 1贊 340
  • 活死人
    序言：一個(gè)原本活蹦亂跳的男人離奇死亡小泉，死狀恐怖，靈堂內(nèi)的尸體忽然破棺而出冕杠，到底是詐尸還是另有隱情微姊，我是刑警寧澤，帶...
    沈念sama閱讀 34,334評(píng)論 4贊 330
  • ?日本核電站爆炸內(nèi)幕
    正文 年R本政府宣布分预，位于F島的核電站兢交，受9級(jí)特大地震影響，放射性物質(zhì)發(fā)生泄漏笼痹。R本人自食惡果不足惜配喳，卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 39,944評(píng)論 3贊 313
  • 男人毒藥：我在死后第九天來(lái)索命
    文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望凳干。 院中可真熱鬧晴裹，春花似錦、人聲如沸救赐。這莊子的主人今日做“春日...
    開(kāi)封第一講書人閱讀 30,764評(píng)論 0贊 21
  • 一樁弒父案，背后竟有這般陰謀
    文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)。三九已至泌绣，卻和暖如春钮追，著一層夾襖步出監(jiān)牢的瞬間，已是汗流浹背阿迈。 一陣腳步聲響...
    開(kāi)封第一講書人閱讀 31,997評(píng)論 1贊 266
  • 情欲美人皮
    我被黑心中介騙來(lái)泰國(guó)打工元媚， 沒(méi)想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留，地道東北人仿滔。 一個(gè)月前我還...
    沈念sama閱讀 46,389評(píng)論 2贊 360
  • 代替公主和親
    正文 我出身青樓惠毁，卻偏偏與公主長(zhǎng)得像犹芹，于是被迫代替她去往敵國(guó)和親崎页。 傳聞我的和親對(duì)象是個(gè)殘疾皇子，可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 43,554評(píng)論 2贊 349

推薦閱讀更多精彩內(nèi)容