作者qibqib (inside my heart)
看板R_Language
標題[問題] 如何將某行資料轉成一個欄位儲存
時間Fri Feb 14 14:26:26 2020
[問題類型]:
程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來)
[軟體熟悉度]:
新手(沒寫過程式，R 是我的第一次)
[問題敘述]:
我有一個純文字檔(txt檔)，檔案外觀如下
https://i.imgur.com/2EtW8U7.jpg
想要把檔案重新整理成以下格式
https://i.imgur.com/DTLNnqR.jpg
想把標準別的那行文字單獨存成一個變項
(PS:每行長度都是固定80 各欄間長度也都固定)
[程式範例]:
https://www.sendspace.com/file/zi3ohm
[環境敘述]:
Win7 R3.4.4
[關鍵字]:
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.200.212.159 (臺灣)
※ 文章網址: https://webptt.com/m.aspx?n=bbs/R_Language/M.1581661590.A.B81.html
1F：→ andrew43: 建議你把敏感資料先用別的字取代再上傳供大家幫你測試。 02/14 16:27
2F：→ andrew43: 我看到你有附上資料了... 02/14 16:28
我刪除很多資料，敏感字都刪除或修正，還請幫忙。
※ 編輯: qibqib (180.217.158.9 臺灣), 02/14/2020 17:20:34
※ 編輯: qibqib (180.217.158.9 臺灣), 02/14/2020 17:21:03
3F：→ andrew43: 先假計「成本中心」這欄必為空值，可參考. 02/14 17:38
5F：推 andrew43: 回到你的標題問題，我的解法就是靠zoo::na.locf() 02/14 23:14
6F：推 VIATOR: 推樓上 02/15 08:47
7F：→ taya1991: X <- read.csv(X, fill=T) 02/19 02:29
8F：→ taya1991: std.loc <- grep("標準", X[, 1]) 02/19 02:30
9F：→ taya1991: 用找到的位子拉個空白變數,長度等於X的row數 02/19 02:32
10F：→ taya1991: 第1~第二個位子是第一個標準X，用迴做個"標準別"column 02/19 02:34
11F：→ taya1991: 原先的table去掉有標準別的row X <- X[-std.loc, ] 02/19 02:36
12F：→ taya1991: 把標準別cbind到新的X表 02/19 02:37