作者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/cn.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