Как объединить данные в разные значения в единый

Question

У меня есть такие данные

data<-structure(list(X2 = c(4L, 5L, 0L, 0L, 3L, 2L, 1L, 4L, 5L, 8L, 
19L, 24L, 1L, 3L, 1L, 4L, 14L, 3L, 7L, 8L, 0L, 23L, 1L, 4L, 0L, 
0L, 5L, 7L, 21L, 3L)), .Names = "X2", class = "data.frame", row.names = c(NA, 
-30L))

Допустим, это значения в одну минуту. И я хочу объединить их в 5 минут, 10 минут, 15 минут и 30 минут отдельно.

Answer 1

Если мы хотим сделать это отдельно, чтобы получить mean, это можно сделать в цикле с lapply, создав индекс группировки с gl

lapply(c(5, 10, 15, 30),  function(x) 
   tapply(data$X2, as.integer(gl(nrow(data), x, nrow(data)) ), FUN = mean))