提取某段时间的数据

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

我有一个大的数据库，里面是有一列date是2017/01/01-2017/12/31，还有一个小的数据库，里面的时间是一段一段的，如2017/02/08-2017/02/20、  2017/03/011-2017/03/15、2017/05/21-2017/05/27，等等，很多段，长度不等，我想按照这些短的时间段，把大库里面的数据提取出来，如何操作? 因为时间段比较多，需要批量做一下，求大神的代码。

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

顶一下

把date拆成起始时间和终止时间两列，再进行筛选

good solution

万人往LVR 发表于 2018-6-22 09:33
把date拆成起始时间和终止时间两列，再进行筛选

没明白啊，能否具体一些

1. library(rlist)
   
2. library(stringr)
   
3. library(dplyr)
   
4. 
   
5. data1 <- data.frame(id=1:3,date=c('2017/01/01-2017/06/30','2017/03/01-2017/10/30','2016/01/01-2016/12/31'),value=11:13,stringsAsFactors=F)
   
6. data2 <- data.frame(date=c('2017/02/08-2017/02/20', '2017/03/11-2017/03/15','2017/05/21-2017/05/27'),value=5:7,stringsAsFactors=F)
   
7. 
   
8. data1[,c('start','end')] <- str_split(data1[['date']],'-') %>% list.rbind
   
9. data2[,c('start','end')] <- str_split(data2[['date']],'-') %>% list.rbind
   
10. 
    
11. lapply(1:nrow(data2),
    
12.         function(i) filter(data1,start<=data2[['start']][i]&end>=data2[['end']][i])) %>%
    
13.         list.rbind %>%
    
14.         distinct(id,.keep_all=T)

复制代码