根據日期範圍和變量匹配對子集進行數據設置

我有兩個不同的數據集，我想根據第二個變量組合得到第一個子集。具體來說，我想看看日期範圍和直接變量匹配的組合。根據日期範圍和變量匹配對子集進行數據設置

望着這裏創建了下面的數據幀：

options(stringsAsFactors = FALSE) 


Loc<-rep("A",10) 
InEvent<-rep("IN",10) 
InDate<-c("2016-05-10","2016-05-20","2016-05-25","2016-06-10","2016-06-20","2016-07-05","2016-07-17","2016-07-27","2016-08-10","2016-08-20") 
InSN<-c("H1","H1","H1","H1","H1","H2","H2","H2","H2","H2") 
OutEvent<-rep("OUT",10) 
OutDate<-c("2016-05-15","2016-05-23","2016-06-02","2016-06-14","2016-06-26","2016-07-09","2016-07-26","2016-08-09","2016-08-19","2016-08-26") 
OutSN<-c("H1","H1","H1","H1","H1","H2","H2","H2","H2","H2") 

Cali<-data.frame(Loc,InEvent,InDate,InSN,OutEvent,OutDate,OutSN) 

Cali$InDate<-as.POSIXct(strptime(Cali$InDate,format="%Y-%m-%d", tz="UTC")) 

Cali$OutDate<-as.POSIXct(strptime(Cali$OutDate,format="%Y-%m-%d", tz="UTC")) 
Cali 



Sen<-rep("CL",20) 
Date<-c("2016-04-10","2016-05-11","2016-05-12","2016-05-13","2016-05-17","2016-05-26","2016-06-17","2016-06-27","2016-07-08","2016-07-20","2016-07-27","2016-08-01","2016-08-05","2016-08-07","2016-08-12","2016-08-15","2016-08-19","2016-08-20","2016-08-23","2016-09-20") 
SN<-c("H1","H1","H2","H5","H1","H1","H7","H2","H2","H2","H1","H2","H1","H5","H2","H5","H3","H1","5","H2") 


Data<-data.frame(Sen,Date,SN) 


Data$Date<-as.POSIXct(strptime(Data$Date,format="%Y-%m-%d", tz="UTC")) 
Data

在最後的結果，我只是想從「卡利」的日期範圍內奠定了「數據」的數據幀的行，但也匹配「InSN」和「OutSN」中的H值。

例如，卡利的第一行的範圍爲2016-5-10：2016-5-15，SN值爲H1。所以我只希望在這個日期範圍內的「數據」中有行，並且在「SN」列中有「H1」。

將所得數據列應爲僅包括滿足匹配條件的行（行2,6,9,10,12,15）

來源

2017-04-15 Vinterwoo

library(dplyr) 
library(magrittr) 
Data=left_join(Cali, Data, by = c("InSN"="SN")) %>% 
    filter(Date>=InDate, Date<=OutDate)

的「數據」的一個子集

來源

2017-04-15 18:46:16

根據日期範圍和變量匹配對子集進行數據設置

回答

相關問題