Find start and end positions/indices of runs/consecutive values

by

Core logic:

# Example vector and rle object
x = rev(rep(6:10, 1:5))
rle_x = rle(x)

# Compute endpoints of run
end = cumsum(rle_x$lengths)
start = c(1, lag(end)[-1] + 1)

# Display results
data.frame(start, end)
#   start end
# 1     1   5
# 2     6   9
# 3    10  12
# 4    13  14
# 5    15  15

Tidyverse/dplyr way (data frame-centric):

library(dplyr)

rle(x) %>%
  unclass() %>%
  as.data.frame() %>%
  mutate(end = cumsum(lengths),
         start = c(1, dplyr::lag(end)[-1] + 1)) %>%
  magrittr::extract(c(1,2,4,3)) # To re-order start before end for display

Because the start and end vectors are the same length as the values component of the rle object, solving the related problem of identifying endpoints for runs meeting some condition is straightforward: filter or subset the start and end vectors using the condition on the run values.

More Related Contents:

  1. R memory management / cannot allocate vector of size n Mb
  2. Split a vector into chunks
  3. Test if a vector contains a given element
  4. Counting the number of elements with the values of x in a vector
  5. How to cbind or rbind different lengths vectors without repeating the elements of the shorter vectors?
  6. Create grouping variable for consecutive sequences and split vector
  7. Create counter within consecutive runs of values
  8. How to merge 2 vectors alternating indexes?
  9. Multiply rows of matrix by vector?
  10. Fastest way to find second (third…) highest/lowest value in vector or column
  11. How to divide each row of a matrix by elements of a vector in R
  12. Alternate, interweave or interlace two vectors
  13. How to index a vector sequence within a vector sequence
  14. else if(){} VS ifelse()
  15. Get indexes of a vector of numbers in another vector
  16. Convert Named Character Vector to data.frame
  17. Reduce PDF file size of plots by filtering hidden objects
  18. How to access the last value in a vector?
  19. Append value to empty vector in R?
  20. Extract every nth element of a vector
  21. How do keep only unique words within each string in a vector
  22. How do I extract just the number from a named number (without the name)?
  23. Convert a dataframe to a vector (by rows)
  24. Split delimited single value character vector
  25. R split numeric vector at position
  26. How do I map a vector of values to another vector with my own custom map in R [duplicate]
  27. Concatenate rows of a data frame
  28. How to return 5 topmost values from vector in R?
  29. How do you create vectors with specific intervals in R?
  30. R reshape a vector into multiple columns

Leave a Comment