Calculate group mean while excluding current observation using dplyr

by

No need to define a custom function, instead we could simply sum all elements of the group, subtract the current value, and divide by number of elements per group minus 1.

df %>% group_by(grouping) %>%
        mutate(special_mean = (sum(value) - value)/(n()-1))
#   grouping value special_mean
#      (chr) (int)        (dbl)
#1         A     1          8.5
#2         A     6          6.0
#3         A    11          3.5
#4         B     2          9.5
#5         B     7          7.0

More Related Contents:

  1. R spreading multiple columns with tidyr [duplicate]
  2. dplyr: nonstandard column names (white space, punctuation, starts with numbers)
  3. dplyr filter with condition on multiple columns
  4. How to add a cumulative column to an R dataframe using dplyr?
  5. Get last row of each group in R [duplicate]
  6. R – add column that counts sequentially within groups but repeats for duplicates
  7. Change value of variable with dplyr
  8. dplyr – filter by group size
  9. Merge rows in a dataframe where the rows are disjoint and contain NAs
  10. mutate_each / summarise_each in dplyr: how do I select certain columns and give new names to mutated columns?
  11. finding close match from data frame 1 in data fame 2
  12. dplyr change many data types
  13. Join two data frames in R based on closest timestamp
  14. How to dplyr rename a column, by column index?
  15. How to add only missing Dates in Dataframe
  16. Override column types when importing data using readr::read_csv() when there are many columns
  17. Adding column if it does not exist
  18. Sample random rows in dataframe
  19. Subset / filter rows in a data frame based on a condition in a column
  20. Replacing character values with NA in a data frame
  21. Coerce multiple columns to factors at once
  22. Proper idiom for adding zero count rows in tidyr/dplyr
  23. Why is enquo + !! preferable to substitute + eval
  24. Add NAs to make all list elements equal length
  25. Comparing two vectors in an if statement
  26. dplyr – using mutate() like rowmeans()
  27. Splitting a large data frame into smaller segments
  28. How to deal with nonstandard column names (white space, punctuation, starts with numbers)
  29. Replace empty values with value from other column in a dataframe
  30. How can I merge more than 2 dataframes in R by rownames?

Leave a Comment