R中许多数据的平均计算

Question

我有一个保存结果的文件：

4
4
4       
4
5

4
4
5
6
4

4
5
5
6
4

我想计算每个组的平均值

不幸的是，只有我设法为每个人计算 我希望平均获得5件商品

它们保存在wynik2.txt文件中

wynik_epidemii  <- read.table(file="wynik2.txt")
wynik_epidemii<- mean(as.numeric(unlist(wynik_epidemii)))

Answer 1

您可以使用tapply，用cumsum技巧定义分组因子。

meanN <- function(x, n = 5){
  f <- cumsum(rep(c(1, rep(0, n - 1)), length.out = length(x)))
  tapply(x, f, mean)
}

meanN(x)
#  1   2   3 
#4.2 4.6 4.8

数据。

x <-
  c(4, 4, 4, 4, 5, 4, 4, 5, 6, 4, 4, 5, 5, 6, 4)