Re: [問題] txt檔如何直轉橫

[celestialgod (攸藍)]

我的測試檔案
----------------tmp.txt------------------
name,time,price
A,2000/01/31,-1
A,2000/02/29,2
A,2000/03/31,-3.3
A,2010/12/31,5
E,2000/01/31,-4
E,2000/02/29,5
E,2000/03/31,-1.1
E,2010/12/31,5
Z,2000/01/31,-10
Z,2000/02/29,7
Z,2000/03/31,-1.8
Z,2010/12/31,-2
---------------end of file----------------

R code:
x=read.table("tmp.txt",sep=",", header=TRUE)
x[,3] = abs(x[,3])
x.wide=reshape(x,direction="wide",
 v.names=c("price"),
 timevar="name",
 idvar="time")

output:
        time price.A price.E price.Z
1 2000/01/31    -1.0    -4.0   -10.0
2 2000/02/29     2.0     5.0     7.0
3 2000/03/31    -3.3    -1.1    -1.8
4 2010/12/31     5.0     5.0    -2.0


matlab code
---------------new.txt-------------
name    time    price
A       2000/01/31      -1
A       2000/02/29      2
A       2000/03/31      -3.3
A       2010/12/31      5
E       2000/01/31      -4
E       2000/02/29      5
E       2000/03/31      -1.1
E       2010/12/31      5
Z       2000/01/31      -10
Z       2000/02/29      7
Z       2000/03/31      -1.8
Z       2010/12/31      -2
------------------------------------

new.txt之間是tab，是空白的話，下面'\t'請改成' '

Dat = readtable('new.txt', 'Format', '%s%s%f', 'delimiter', '\t');
Dat.price = abs(Dat.price);
W = unstack(Dat, 'price', 'name');

Matlab的速度很快，可以試試看。

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 36.238.81.92
→ goodparent1:有辦法用r跑嗎，MATLAB 檔案很大 很難下載。
R的code就在上面，只是用sep=","，如果你的間隔是空白就改成sep=" "
※ 編輯: celestialgod    來自: 218.164.79.5         (11/01 19:09)
→ goodparent1:我是指負數轉正數的code 如果我要用r跑 該怎麼寫
→ goodparent1:不好意思，我看到了。
→ goodparent1:可是我用ABS跑，只能跑到1800多列，剩下的檔案會遺失
→ celestialgod:我沒那麼大的檔案 我沒法測試= =
→ goodparent1:https://www.dropbox.com/s/6chu02wylo3owmq/test.txt
我改成這樣，結果如下：
x=read.table("test.txt", header=TRUE)
x[,3] = abs(as.numeric(x[,3]))
x.wide=reshape(x,direction="wide",
 v.names=c("Adjprc"),
 timevar="name",
 idvar="time")

> dim(x.wide)
[1]  504 1986
※ 編輯: celestialgod    來自: 36.239.250.66        (11/04 19:03)
→ goodparent1:可是這樣轉出來，我的時間列就不見了....
推 Wush978:push
推 Wush978:my code:
→ Wush978:x=read.table("test.txt", header=TRUE)
→ Wush978:x$time=as.Date(as.character(x$time), format="%Y%m%d")
→ Wush978:x$Adjprc=abs(x$Adjprc)
→ Wush978:reshape部分相同, 最後得到如： `head(x.wide[,1:5])`
→ Wush978:第一行就是時間（日期）