Calculate difference between values in consecutive rows by group

by

The package data.table can do this fairly quickly, using the shift function.

require(data.table)
df <- data.table(group = rep(c(1, 2), each = 3), value = c(10,20,25,5,10,15))
#setDT(df) #if df is already a data frame

df[ , diff := value - shift(value), by = group]    
#   group value diff
#1:     1    10   NA
#2:     1    20   10
#3:     1    25    5
#4:     2     5   NA
#5:     2    10    5
#6:     2    15    5
setDF(df) #if you want to convert back to old data.frame syntax

Or using the lag function in dplyr

df %>%
    group_by(group) %>%
    mutate(Diff = value - lag(value))
#   group value  Diff
#   <int> <int> <int>
# 1     1    10    NA
# 2     1    20    10
# 3     1    25     5
# 4     2     5    NA
# 5     2    10     5
# 6     2    15     5

For alternatives pre-data.table::shift and pre-dplyr::lag, see edits.

More Related Contents:

  1. How to sort a character vector where elements contain letters and numbers in R?
  2. Is there an R function for finding the index of an element in a vector?
  3. Using data.table package inside my own package
  4. Update data frame via function doesn’t work
  5. Combine (rbind) data frames and create column with name of original data frames
  6. Create a data.frame where a column is a list
  7. How to tell what is in one vector and not another?
  8. ggplot2: Divide Legend into Two Columns, Each with Its Own Title
  9. Update a Value in One Column Based on Criteria in Other Columns
  10. Select every other element from a vector
  11. ggplot2 multiple sub groups of a bar chart
  12. R dplyr rolling sum
  13. Using multiple criteria in subset function and logical operators
  14. Append data frames together in a for loop
  15. Can’t download data from Yahoo Finance using Quantmod in R
  16. Splitting a data.frame by a variable [duplicate]
  17. Creating regular 15-minute time-series from irregular time-series
  18. Efficiently computing a linear combination of data.table columns
  19. Rounding numbers in R to specified number of digits
  20. Unlist a data frame by rows, not columns
  21. How to add table of contents in Rmarkdown?
  22. How do you delete a column by name in data.table?
  23. Applying a function to two lists?
  24. Merging two sets of data by data.table roll=’nearest’ function
  25. How to increase the size of points in legend of ggplot2? [duplicate]
  26. Creating a named list from two vectors (names, values)
  27. How to change stacking order in stacked bar chart in R?
  28. R: How to split a data frame into training, validation, and test sets?
  29. Match legend text color in geom_text to symbol [duplicate]
  30. Multiply columns in a data frame by a vector

Leave a Comment