在一段時期內按羣組查找日期

我有一個有許多ID的面板，begin和end日期。 begin到end日期創建一個interval的時間。在一段時期內按羣組查找日期

id  begin  end      interval overlap 
1: 1 2010-01-31 2011-06-30 2009-08-04 UTC--2011-12-27 UTC TRUE 
2: 1 2011-01-31 2012-06-30 2010-08-04 UTC--2012-12-27 UTC TRUE 
3: 1 2012-01-31 2013-06-30 2011-08-04 UTC--2013-12-27 UTC TRUE 
4: 1 2013-01-31 2014-06-30 2012-08-04 UTC--2014-12-27 UTC TRUE 
5: 1 2013-02-28 2013-07-31 2012-09-01 UTC--2014-01-27 UTC TRUE 
6: 1 2015-02-28 2015-03-31 2014-09-01 UTC--2015-09-27 UTC TRUE 
7: 1 2015-06-30 2015-07-31 2015-01-01 UTC--2016-01-27 UTC TRUE 
8: 1 2015-09-30 2016-01-31 2015-04-03 UTC--2016-07-29 UTC TRUE 
9: 2 2010-01-31 2011-06-30 2009-08-04 UTC--2011-12-27 UTC TRUE 
10: 2 2011-01-31 2012-06-30 2010-08-04 UTC--2012-12-27 UTC TRUE 
11: 2 2012-01-31 2013-06-30 2011-08-04 UTC--2013-12-27 UTC TRUE 
12: 2 2013-01-31 2014-06-30 2012-08-04 UTC--2014-12-27 UTC TRUE 
13: 2 2013-02-28 2013-07-31 2012-09-01 UTC--2014-01-27 UTC TRUE 
14: 2 2015-02-28 2015-03-31 2014-09-01 UTC--2015-09-27 UTC TRUE 
15: 2 2015-06-30 2015-07-31 2015-01-01 UTC--2016-01-27 UTC TRUE 
16: 2 2015-09-30 2016-01-31 2015-04-03 UTC--2016-07-29 UTC TRUE

我需要測試是否，對於每個ID，任何begin/end日期被包括在另一interval（同一ID的）。

例如，id1begin（2010-01-31）中不包括的id1比在第一線中的任何其他時間段。但是，id1end日期（2011-06-30）包含在第二行（2010-08-04 UTC - 2012-12-27 UTC）的區間中。

我試圖lubridate間隔和數據表%within%但因爲它被包含在其相應的週期它產生TRUE。我需要知道它是否包含在同一個ID的任何其他時期。

customer[begin %within% interval | end %within% interval, overlap := TRUE, by = id]

我已經檢查的data.table foverlap，但似乎設計用於連接不同的表和其它問題，只是載體，但not panels有間隔。

任何想法？

數據：

structure(list(id = c(1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 
2, 2, 2), begin = structure(c(14640, 15005, 15370, 15736, 15764, 
16494, 16616, 16708, 14640, 15005, 15370, 15736, 15764, 16494, 
16616, 16708), class = "Date"), end = structure(c(15155, 15521, 
15886, 16251, 15917, 16525, 16647, 16831, 15155, 15521, 15886, 
16251, 15917, 16525, 16647, 16831), class = "Date"), interval = structure(c(75600000, 
75686400, 75686400, 75600000, 44323200, 33782400, 33782400, 41731200, 
75600000, 75686400, 75686400, 75600000, 44323200, 33782400, 33782400, 
41731200), start = structure(c(1249344000, 1280880000, 1312416000, 
1344038400, 1346457600, 1409529600, 1420070400, 1428019200, 1249344000, 
1280880000, 1312416000, 1344038400, 1346457600, 1409529600, 1420070400, 
1428019200), tzone = "UTC", class = c("POSIXct", "POSIXt")), tzone = "UTC", class = structure("Interval", package = "lubridate")), 
    overlap = c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
    TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE)), .Names = c("id", 
"begin", "end", "interval", "overlap"), row.names = c(NA, -16L 
), class = c("data.table", "data.frame"), .internal.selfref = <pointer: 0x0000000000140788>)

來源

2017-05-26 user3507584

下面是做到這一點，利用int_overlaps從lubridate的一種方式。我已經定義了開始日期和結束日期的時間間隔，但是在您的數據中它們是不同的 - 也許您可以澄清哪些是正確的。

library(lubridate) 

df$interval <- interval(as.POSIXct(df$begin),as.POSIXct(df$end)) 

df <- df[order(df$id),] #needs to be sorted by id for next stage to work 

df$overlap <- unlist(tapply(df$interval, #loop through intervals 
          df$id, #grouped by id 
          function(x) rowSums(outer(x,x,int_overlaps))>1)) 
            #check if more than one overlap in subset for that id 


df 
    id  begin  end      interval overlap 
1 1 2010-01-31 2011-06-30 2010-01-31 UTC--2011-06-30 UTC TRUE 
2 1 2011-01-31 2012-06-30 2011-01-31 UTC--2012-06-30 UTC TRUE 
3 1 2012-01-31 2013-06-30 2012-01-31 UTC--2013-06-30 UTC TRUE 
4 1 2013-01-31 2014-06-30 2013-01-31 UTC--2014-06-30 UTC TRUE 
5 1 2013-02-28 2013-07-31 2013-02-28 UTC--2013-07-31 UTC TRUE 
6 1 2015-02-28 2015-03-31 2015-02-28 UTC--2015-03-31 UTC FALSE 
7 1 2015-06-30 2015-07-31 2015-06-30 UTC--2015-07-31 UTC FALSE 
8 1 2015-09-30 2016-01-31 2015-09-30 UTC--2016-01-31 UTC FALSE 
9 2 2010-01-31 2011-06-30 2010-01-31 UTC--2011-06-30 UTC TRUE 
10 2 2011-01-31 2012-06-30 2011-01-31 UTC--2012-06-30 UTC TRUE 
11 2 2012-01-31 2013-06-30 2012-01-31 UTC--2013-06-30 UTC TRUE 
12 2 2013-01-31 2014-06-30 2013-01-31 UTC--2014-06-30 UTC TRUE 
13 2 2013-02-28 2013-07-31 2013-02-28 UTC--2013-07-31 UTC TRUE 
14 2 2015-02-28 2015-03-31 2015-02-28 UTC--2015-03-31 UTC FALSE 
15 2 2015-06-30 2015-07-31 2015-06-30 UTC--2015-07-31 UTC FALSE 
16 2 2015-09-30 2016-01-31 2015-09-30 UTC--2016-01-31 UTC FALSE

來源

2017-05-26 12:58:43

在一段時期內按羣組查找日期

回答

相關問題