R软件中的数据分析问题

2011-12-29 15:41:38

x <- read.table("tmp.txt")#数据放在tmp.txt里
y <- table(x[,1])
z <- x[x[,1] %in% names(y[y>700]),]#z是第一步要的
a <- unique(z[,2])
b <- lapply(a,function(a) z[which(z[,2]==a),])#b是第二步要的

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2011-12-29 16:30:42

大公子发表于 2011-12-29 15:41
x

大哥，高人啊，受教了。

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2011-12-29 21:33:45

大公子发表于 2011-12-29 15:41
x

还是没解决啊，第一步解决了，第二步好像不对吧。

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

qoiqpwqr

2011-12-29 23:09:33

duanwuhuan 发表于 2011-12-29 21:33
还是没解决啊，第一步解决了，第二步好像不对吧。

什么叫再在这些股票中选出共同部分？

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2011-12-29 23:36:47

qoiqpwqr 发表于 2011-12-29 23:09
什么叫再在这些股票中选出共同部分？

600139 2009-01-01    2.1
600139 2009-01-02    2.3
600139 2009-01-03    2.2
.                .             .
.                .             .
600456 2009-01-02    12
600456 2009-01-03    13.1
  .                .             .
.                .             .
600457 2009-01-03    15
600456 2009-01-05    13.1
也就是选出那些交易日，各支股票都有交易，并存放到另外一张表中。比如上面的红色部分就是要提出来的数据。换句话说，假如现在有30支股票，有30个交易日的数据，中间有的股票也许没交易，假如原始表格有800个数据，明显每支股票的数据不一样多。经过提取数据后，假设有a个数据，则a肯定能被30整除的。不知道我表达清楚没？谢谢啦

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

点击查看更多内容…

2011-12-30 09:40:10

我这儿是行的。错误信息贴出来。

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2011-12-30 10:13:26

duanwuhuan 发表于 2011-12-29 23:36
600139 2009-01-01    2.1
600139 2009-01-02    2.3
600139 2009-01-03    2.2

复制代码

第二步是不是这个意思？

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2011-12-30 10:21:45

duanwuhuan 发表于 2011-12-29 23:36
600139 2009-01-01    2.1
600139 2009-01-02    2.3
600139 2009-01-03    2.2

z[which(table(z[,2])==max(table(z[,2]))),]
第二问是这个意思么

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2011-12-30 12:54:46

xiaobing212 发表于 2011-12-30 10:21
z[which(table(z[,2])==max(table(z[,2]))),]
第二问是这个意思么

不是，运行结果不对啊。我是求各支股票都有交易的那些时间的对应数据。也就是：如果股票1，从1月1日到1月20日，股票2,从1月3日到1月23日，则输出的数据应该是：股票1中的1月3日到1月20日（与2的时间相同），股票2中1月3日到1月20日中的交易数据。

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2011-12-30 13:06:24

大公子发表于 2011-12-30 09:40
我这儿是行的。错误信息贴出来。

[[710]]
      V1       V2 V3
710  600000 2011-12-22 8.53
1704 600004 2011-12-22 6.22

[[711]]
      V1       V2 V3
711  600000 2011-12-23 8.54
1705 600004 2011-12-23 6.21

[[712]]
      V1       V2 V3
1063 600004 2009-05-05 9.08

[[713]]
      V1       V2 V3
1261 600004 2010-02-26 11.78
这是两支股票一部分数据，我现在只想要有共同时间的那些数据，即【712】和【713】不要，因为只有600004有数据。另外怎么把这些合并成一个表？
            V1       V2 V3
710  600000 2011-12-22 8.53
1704 600004 2011-12-22 6.22
711  600000 2011-12-23 8.54
1705 600004 2011-12-23 6.21
1063 600004 2009-05-05 9.08

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2011-12-30 14:48:34

duanwuhuan 发表于 2011-12-30 12:54
不是，运行结果不对啊。我是求各支股票都有交易的那些时间的对应数据。也就是：如果股票1，从1月1日到1月 ...

复制代码

我再试试看

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2011-12-30 15:56:09

xiaobing212 发表于 2011-12-30 14:48
我再试试看

谢谢您的热情帮助，感激不尽啊。

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2011-12-30 16:06:02

t <- unlist(lapply(b,nrow))
fin1 <- b[t>1]#t>1?
fin2 <- do.call(rbind,fin1)
加了三句，不过还是没明白你的意思，t>1还是t>30还是怎样，这个参数你自己改改。
另外这种事在excel中也简单，干嘛非用R。

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2011-12-30 16:16:21

duanwuhuan 发表于 2011-12-30 15:56
谢谢您的热情帮助，感激不尽啊。

这条程序还不行啊

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2011-12-30 16:24:01

大公子发表于 2011-12-30 16:06
t 1?
fin2 1还是t>30还是怎样，这个参数你自己改改。
另外这种事在excel中也简单，干嘛非用R。

这里的意思，t应该取最大值吧？

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2011-12-30 16:26:02

xiaobing212 发表于 2011-12-30 16:24
这里的意思，t应该取最大值吧？

t <- unlist(lapply(b,nrow))
fin1 <- b[which(t==max(t))]
fin2 <- do.call(rbind,fin1)

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝