计算 R 中每五个变量的数据帧列的平均值

Question

简单数据框：

X2 <- runif(20, -2, 2)
X1 <- c(1:20)
data <- cbind(X1, X2)

想计算一列新的数据列，该列由来自 X2 的五个数据点的平均值组成，用于整列;例如，这个新列的第一个点是来自 X2 的前五个点的平均值，点 2 是后五个点的平均值，依此类推。在此示例中，新列应具有四个总值。我猜这是通过函数和应用程序完成的，但我不知道如何进行。任何帮助将不胜感激！

Answer 1

如果你不追求滚动平均值，你可以这样做：

n_splits <- 5
transform(
data,
mean_X2 = ave(X2, ceiling(seq_along(X2)/n_splits), FUN = mean)
)

背后的想法是你只得到 4 个不同的值(每个值用于 1 个 5 行的切割(：

X1         X2    mean_X2
1   1  0.2450328  0.4765226
2   2 -0.2485971  0.4765226
3   3  0.1073639  0.4765226
4   4  1.6354394  0.4765226
5   5  0.6433740  0.4765226
6   6  1.6846952  0.4854171
7   7 -1.9208249  0.4854171
8   8  0.9209313  0.4854171
9   9  0.2554107  0.4854171
10 10  1.4868733  0.4854171
11 11  1.4396200 -0.4308499
12 12 -1.4503835 -0.4308499
13 13 -0.1566408 -0.4308499
14 14 -1.5484536 -0.4308499
15 15 -0.4383918 -0.4308499
16 16  0.6936388  1.0445175
17 17  0.1052725  1.0445175
18 18  0.9264836  1.0445175
19 19  1.8322978  1.0445175
20 20  1.6648948  1.0445175

数据：

set.seed(3243)
X2 <- runif(20, -2, 2)
X1 <- c(1:20)
data <- cbind(X1, X2)

Answer 2

您正在寻找 rollmean，例如在zoo包或data.table中找到：

library(data.table)
set.seed(1)
data <- data.table(X1=seq_len(20), X2=runif(20, -2, 2))
data[, rm := frollmean(data$X2, 5, align = "left")]
data
#>     X1           X2          rm
#>  1:  1 -0.937965347 -0.14369948
#>  2:  2 -0.511504401  0.36260534
#>  3:  3  0.291413453  0.82064643
#>  4:  4  1.632831160  0.89100197
#>  5:  5 -1.193272276  0.66772698
#>  6:  6  1.593558740  0.55581045
#>  7:  7  1.778701074  0.00187836
#>  8:  8  0.643191170 -0.61261645
#>  9:  9  0.516456176 -0.59163641
#> 10: 10 -1.752854918 -0.78764467
#> 11: 11 -1.176101700 -0.22120055
#> 12: 12 -1.293772990  0.01217918
#> 13: 13  0.748091387  0.44502859
#> 14: 14 -0.463585127  0.68893519
#> 15: 15  1.079365680  0.68568036
#> 16: 16 -0.009203032  0.69176340
#> 17: 17  0.870474033          NA
#> 18: 18  1.967624379          NA
#> 19: 19 -0.479859282          NA
#> 20: 20  1.109780885          NA