R dplyr rolling sum

by

You can instead use RcppRoll::roll_sum which returns NA if the sample size(n) is less than the window size(k). 

set.seed(1)
dg$count = rpois(dim(dg)[1], 5) 
library(RcppRoll)
library(dplyr)
dg %>%
     arrange(site,year,animal) %>%
     group_by(site, animal) %>%
     mutate(roll_sum = roll_sum(count, 2, align = "right", fill = NA))    
#       site year animal count roll_sum
#1    Boston 2000    dog     4       NA
#2    Boston 2001    dog     5        9
#3    Boston 2002    dog     3        8
#4    Boston 2003    dog     9       12
#5    Boston 2004    dog     6       15
#6  New York 2000    dog     4       NA
#7  New York 2001    dog     8       12
#8  New York 2002    dog     8       16
#9  New York 2003    dog     6       14
#10 New York 2004    cat     2       NA

More Related Contents:

  1. Gather multiple sets of columns
  2. How to get summary statistics by group
  3. Is there a dplyr equivalent to data.table::rleid?
  4. Replace NA with previous or next value, by group, using dplyr
  5. Filter rows which contain a certain string
  6. Group by multiple columns in dplyr, using string vector input
  7. Calculate group mean, sum, or other summary stats. and assign column to original data
  8. Select groups which have at least one of a certain value
  9. Rolling mean (moving average) by group/id with dplyr
  10. Programming with dplyr using string as input
  11. Count number of rows by group using dplyr
  12. Pass a vector of variable names to arrange() in dplyr
  13. How to remove rows with any zero value
  14. pass function arguments to both dplyr and ggplot
  15. Select columns based on string match – dplyr::select
  16. Delete columns/rows with more than x% missing
  17. How to aggregate a dataframe by week?
  18. adding default values to item x group pairs that don’t have a value (df %>% spread %>% gather seems strange)
  19. Spread with duplicate identifiers (using tidyverse and %>%) [duplicate]
  20. dplyr mutate rowwise max of range of columns
  21. dplyr: lead() and lag() wrong when used with group_by()
  22. Reorder rows using custom order
  23. Spreading a two column data frame with tidyr
  24. R dplyr rowwise mean or min and other methods?
  25. How to combine ggplot and dplyr into a function?
  26. dplyr: put count occurrences into new variable [duplicate]
  27. How to replace empty string with NA in R dataframe?
  28. Add row in each group using dplyr and add_row()
  29. Adding prefix or suffix to most data.frame variable names in piped R workflow
  30. How to replace certain values in a specific rows and columns with NA in R?

Leave a Comment