R提取字段相同的观察值

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

R中有一个数据框，第一列是交易日，之后列是股票的行情信息，我需要按每个交易日对所有股票的行情信息进行排序，比如收盘价和交易量的排名，请问如何从数据框中提取相同交易日的数据来进行排序？然后如何将所得排序结果赋值给每只股票并放到1个数据框中？谢谢！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：交易日 数据框 交易量 收盘价 如何 交易量 交易日 收盘价 信息

能用数据例子说明一下你的问题吗？这样简单的描述，很难帮助你

felixzhao123 发表于 2016-6-14 14:56
能用数据例子说明一下你的问题吗？这样简单的描述，很难帮助你

我的数据框结构为：
TRADE_DT S_INFO_WINDCODE S_DQ_OPEN S_DQ_CLOSE S_DQ_PCTCHANGE S_DQ_VOLUME
1 20140102       000001.SZ     12.12      12.23        -0.1633    489910.9
数据框按日期、代码排序，现在我想在数据框右侧增加三列，第1,2列描述每个股票代码对应在这个交易日所有股票中的交易量的排序结果和开盘价的排序结果，第3列计算每个股票每个交易日对应的近10个交易日的该股票的交易量的排序结果和开盘价的排序结果的相关系数，谢谢

自顶自顶自顶

upupup

jayathena 发表于 2016-6-15 17:48
upupup

建议你先用reshape把数据从long变成wide.

1. library(reshape)
   
2. install.packages("reshape")
   
3. date <- 1:9
   
4. code <- rep(letters[1:3],each=3)
   
5. value <- rnorm(9)
   
6. df <- data.frame(date,code,value)
   
7. melt(df,id=c("date","code"))
   
8. cast(df,date~code)

复制代码

jayathena 发表于 2016-6-14 15:10
我的数据框结构为：
TRADE_DT S_INFO_WINDCODE S_DQ_OPEN S_DQ_CLOSE S_DQ_PCTCHANGE S_DQ_VOLUME
1 2 ...

思路如下：第一二列用dplyr::group_by()和dplyr::mutate()就可以实现，第三列自己参考zoo::rollapply()的写法，写个滚动计算秩相关系数的函数，再用mutate()实现。