作者celestialgod (攸蓝)
看板R_Language
标题Re: [问题] txt档如何直转横
时间Mon Oct 28 23:58:21 2013
我的测试档案
----------------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
1F：→ goodparent1:有办法用r跑吗，MATLAB 档案很大 很难下载。 11/01 17:44
R的code就在上面，只是用sep=","，如果你的间隔是空白就改成sep=" "
※ 编辑: celestialgod 来自: 218.164.79.5 (11/01 19:09)
2F：→ goodparent1:我是指负数转正数的code 如果我要用r跑 该怎麽写 11/02 11:45
3F：→ goodparent1:不好意思，我看到了。 11/02 11:47
4F：→ goodparent1:可是我用ABS跑，只能跑到1800多列，剩下的档案会遗失 11/03 22:41
5F：→ celestialgod:我没那麽大的档案 我没法测试= = 11/03 23:17
我改成这样，结果如下：
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)
7F：→ goodparent1:可是这样转出来，我的时间列就不见了.... 11/05 20:22
8F：推 Wush978:push 11/07 22:17
9F：推 Wush978:my code: 11/07 22:18
10F：→ Wush978:x=read.table("test.txt", header=TRUE) 11/07 22:18
11F：→ Wush978:x$time=as.Date(as.character(x$time), format="%Y%m%d") 11/07 22:18
12F：→ Wush978:x$Adjprc=abs(x$Adjprc) 11/07 22:19
13F：→ Wush978:reshape部分相同, 最後得到如： `head(x.wide[,1:5])` 11/07 22:19
14F：→ Wush978:第一行就是时间（日期） 11/07 22:19