[問題] 如何將某行資料轉成一個欄位儲存

[qibqib (inside my heart)]

[問題類型]:
程式諮詢(我想用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://www.ptt.cc/bbs/R_Language/M.1581661590.A.B81.html
→ andrew43: 建議你把敏感資料先用別的字取代再上傳供大家幫你測試。
→ andrew43: 我看到你有附上資料了...
我刪除很多資料，敏感字都刪除或修正，還請幫忙。
※ 編輯: qibqib (180.217.158.9 臺灣), 02/14/2020 17:20:34
※ 編輯: qibqib (180.217.158.9 臺灣), 02/14/2020 17:21:03
→ andrew43: 先假計「成本中心」這欄必為空值，可參考.
→ andrew43: https://ideone.com/aDlXju
推 andrew43: 回到你的標題問題，我的解法就是靠zoo::na.locf()
推 VIATOR: 推樓上
→ taya1991: X <- read.csv(X, fill=T)
→ taya1991: std.loc <- grep("標準", X[, 1])
→ taya1991: 用找到的位子拉個空白變數,長度等於X的row數
→ taya1991: 第1~第二個位子是第一個標準X，用迴做個"標準別"column
→ taya1991: 原先的table去掉有標準別的row   X <- X[-std.loc, ]
→ taya1991: 把標準別cbind到新的X表