How to flatten / merge overlapping time periods

by

Here’s a possible solution. The basic idea here is to compare lagged start date with the maximum end date “until now” using the cummax function and create an index that will separate the data into groups

data %>%
  arrange(ID, start) %>% # as suggested by @Jonno in case the data is unsorted
  group_by(ID) %>%
  mutate(indx = c(0, cumsum(as.numeric(lead(start)) >
                     cummax(as.numeric(end)))[-n()])) %>%
  group_by(ID, indx) %>%
  summarise(start = first(start), end = last(end))

# Source: local data frame [3 x 4]
# Groups: ID
# 
#   ID indx      start        end
# 1  A    0 2013-01-01 2013-01-06
# 2  A    1 2013-01-07 2013-01-11
# 3  A    2 2013-01-12 2013-01-15

More Related Contents:

  1. How to convert Excel date format to proper date in R
  2. How to prevent ifelse() from turning Date objects into numeric objects
  3. Transform year/week to date object
  4. Convert date-time string to class Date
  5. Split date-time column into Date and time variables
  6. Generate a sequence of the last day of the month over two years
  7. efficiently generate a random sample of times and dates between two dates
  8. Is there a more elegant way to convert two-digit years to four-digit years with lubridate?
  9. Add (subtract) months without exceeding the last day of the new month
  10. How to determine if date is a weekend or not (not using lubridate)
  11. Change day of the month in a Date to first day (01)
  12. Checking if Date is Between two Dates in R
  13. extract hours and seconds from POSIXct for plotting purposes in R
  14. Calculating Time Difference between two columns
  15. Convert decimal day to HH:MM
  16. Convert two-digit years to four-digit years with correct century
  17. Create a Vector of All Days Between Two Dates
  18. Round a POSIX date (POSIXct) with base R functionality
  19. Changing date format in R
  20. Find which season a particular date belongs to
  21. Change timezone in a POSIXct object
  22. How to parse milliseconds?
  23. How do you convert POSIX date to day of year?
  24. R: How to handle times without dates?
  25. Extract Month and Year From Date in R
  26. How to aggregate a dataframe by week?
  27. Converting date in Year.decimal form in R
  28. Convert hours:minutes:seconds to minutes
  29. R: merge two irregular time series
  30. change a column from birth date to age in r

Leave a Comment