calculating mean for every n values from a vector

by

I would use

 colMeans(matrix(a, 60))
.colMeans(a, 60, length(a) / 60)  # more efficient (without reshaping to matrix)

Enhancement on user adunaic‘s request

This only works if there are 60×100 data points. If you have an incomplete 60 at the end then this errors. It would be good to have a general solution for others looking at this problem for ideas.

BinMean <- function (vec, every, na.rm = FALSE) {
  n <- length(vec)
  x <- .colMeans(vec, every, n %/% every, na.rm)
  r <- n %% every
  if (r) x <- c(x, mean.default(vec[(n - r + 1):n], na.rm = na.rm))
  x
  }

a <- 1:103
BinMean(a, every = 10)
# [1]   5.5  15.5  25.5  35.5  45.5  55.5  65.5  75.5  85.5  95.5 102.0

Alternative solution with group-by operation (less efficient)

BinMean2 <- function (vec, every, na.rm = FALSE) {
  grp <- as.integer(ceiling(seq_along(vec) / every))
  grp <- structure(grp, class = "factor",
                   levels = as.character(seq_len(grp[length(grp)])) )
  lst <- .Internal(split(vec, grp))
  unlist(lapply(lst, mean.default, na.rm = na.rm), use.names = FALSE)
  }

Speed

library(microbenchmark)
a <- runif(1e+4)
microbenchmark(BinMean(a, 100), BinMean2(a, 100))
#Unit: microseconds
#             expr      min        lq       mean    median        uq       max
#  BinMean(a, 100)   40.400   42.1095   54.21286   48.3915   57.6555   205.702
# BinMean2(a, 100) 1216.823 1335.7920 1758.90267 1434.9090 1563.1535 21467.542

More Related Contents:

  1. How to find common elements from multiple vectors?
  2. How to convert a list consisting of vector of different lengths to a usable data frame in R?
  3. How to cbind or rbind different lengths vectors without repeating the elements of the shorter vectors?
  4. Calculate group mean, sum, or other summary stats. and assign column to original data
  5. How to merge 2 vectors alternating indexes?
  6. calculate the mean for each column of a matrix in R
  7. Multiply rows of matrix by vector?
  8. Fastest way to find second (third…) highest/lowest value in vector or column
  9. How to index a vector sequence within a vector sequence
  10. Finding All Positions for Multiple Elements in a Vector
  11. Get indexes of a vector of numbers in another vector
  12. Convert data.frame column to a vector?
  13. Reduce PDF file size of plots by filtering hidden objects
  14. Converting two columns of a data frame to a named vector
  15. Append value to empty vector in R?
  16. Generate random numbers with fixed mean and sd
  17. How do keep only unique words within each string in a vector
  18. Test for equality among all elements of a single numeric vector
  19. List distinct values in a vector in R
  20. Find start and end positions/indices of runs/consecutive values
  21. Insert blanks into a vector for, e.g., minor tick labels in R
  22. Unlist a data frame by rows, not columns
  23. Get the means of sub groups of means in R
  24. Split delimited single value character vector
  25. Count values separated by a comma in a character string
  26. R split numeric vector at position
  27. Extract a column from a data.table as a vector, by position
  28. How to return 5 topmost values from vector in R?
  29. How to reverse order a vector?
  30. propagating data within a vector

Leave a Comment