求助：rdata数据抽取

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

大佬们好。初学R，有个数据提取问题，描述如下：
图示为rdata里读取到的2012-2013年沪A数据


我的目标是，提取（每个股票+每个月）的头一个交易日和最后一个交易日所对应的数据，

也就是红框里的这些行。

我知道得从第二列的date入手，

但是每个股票以及每个月的头一个交易日和最后一个交易日，

可能互不相同，没有固定日期

想麻烦高手们支个招，非常感谢

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：RData Data rda 最后一个 date 交易日

直观想法，先把2012-01-29，分开year:2012, month:01, day:29，比如处理后的数据为D，

1. library(data.table)
   
2. D <- data.table(a = c(3,4,5,6,7,8),
   
3.                 year = c("2012","2012", "2012", "2012", "2012", "2012"),
   
4.                 month = c("01","01", "01", "02", "02","02"),
   
5.                 day = c("02", "29", "18", "01", "29", "10"))
   
6. 
   
7. 
   
8. D
   
9. L1 <- D[, day == min(day), by = list(year, month)][, V1]
   
10. L2 <- D[, day == max(day), by = list(year, month)][, V1]
    
11. L <- L1 | L2
    
12. D[L, ]

复制代码

看看能不能得到启发。

可以用dplyr和tidy两个包试试。比较笨的一个思路。
把第二拆用separate()分成：年-月（col2）和日（col3）两列，然后用group_by对第一列（股票名称）和第二列（col2）进行分组，再通过summarize和which.max，which.min对日（col3）做汇总，找出最大日期和最小日期所在的行。知道了行号提取数据就比较容易了。

谢谢楼上亲们。

后来自己弄了个笨办法，新加一列，是把year和month拼成一个整数

month
201201
201202
...
201301
...
201312

再按照month统计。。。

这样也不错。