Rolling mean (moving average) by group/id with dplyr

by

How about this?

    library(dplyr)   
    test2<-arrange(test,ID,YEAR_VISIT) %>% 
           mutate(lag1=lag(BLOOD_PRESSURE),
                  lag2=lag(BLOOD_PRESSURE,2),
                  movave=(lag1+lag2)/2)

Another solution using ‘rollapply’ function in zoo package (I like more)

library(dplyr)
library(zoo)
test2<-arrange(test,ID,YEAR_VISIT) %>%
       mutate(ma2=rollapply(BLOOD_PRESSURE,2,mean,align='right',fill=NA))

More Related Contents:

  1. Use dynamic name for new column/variable in `dplyr`
  2. data.table vs dplyr: can one do something well the other can’t or does poorly?
  3. Extract a dplyr tbl column as a vector
  4. Pass arguments to dplyr functions
  5. dplyr::select function clashes with MASS::select
  6. Sum across multiple columns with dplyr
  7. dplyr: nonstandard column names (white space, punctuation, starts with numbers)
  8. dplyr filter: Get rows with minimum of variable, but only the first if multiple minima
  9. dplyr mutate/replace several columns on a subset of rows
  10. dplyr: How to use group_by inside a function?
  11. What does the dplyr period character “.” reference?
  12. Count non-NA values by group [duplicate]
  13. case_when in mutate pipe
  14. Summarize all group values and a conditional subset in the same call
  15. dplyr mutate with conditional values
  16. How to add a cumulative column to an R dataframe using dplyr?
  17. Concatenate unique strings after groupby in R
  18. Get last row of each group in R [duplicate]
  19. dplyr on data.table, am I really using data.table?
  20. Set certain values to NA with dplyr
  21. Use filter in dplyr conditional on an if statement in R
  22. combine two data frames with all posible combinations
  23. dplyr / R cumulative sum with reset
  24. finding close match from data frame 1 in data fame 2
  25. Add a column with count of NAs and Mean
  26. select columns based on multiple strings with dplyr contains()
  27. Error with select function from dplyr
  28. How to pass column name as argument to function for dplyr verbs?
  29. How to use data.table within functions and loops?
  30. Override column types when importing data using readr::read_csv() when there are many columns

Leave a Comment