R中具有7个后续行平均值的列[重复]

Question

我得到了这个 df：

df <- data.frame(flow = c(1,2,3,4,5,6,7,8,9,10,11))

  flow
1     1
2     2
3     3
4     4
5     5
6     6
7     7
8     8
9     9
10   10
11   11

我想从我们的行中获得一周的平均值，如下所示：

  flow   flow7mean
1     1          4 `(mean of 1,2,3,4,5,6,7)`
2     2          5 (mean of 2,3,4,5,6,7,8)
3     3          6 (mean of 3,4,5,6,7,8,9)
4     4          7 (mean of 4,5,6,7,8,9,10)
5     5          8 (mean of 5,6,7,8,9,10,11)
6     6          NA (it's ok, because there is just 6 flow data)
7     7          NA
8     8          NA
9     9          NA
10   10          NA
11   11          NA

我尝试了一些循环解决方案，但我认为矢量化解决方案更好

Answer 1

使用来自zoo 包的rollmean() 试试这个：

library(zoo)
#Code
df$M <- rollmean(df$flow,k = 7,align = 'left',fill=NA)

输出：

df
   flow  M
1     1  4
2     2  5
3     3  6
4     4  7
5     5  8
6     6 NA
7     7 NA
8     8 NA
9     9 NA
10   10 NA
11   11 NA

Answer 2

我们可以从RcppRoll使用roll_mean

library(RcppRoll)
df$flow7mean <- roll_mean(df$flow, 7, fill = NA, align = 'left')

-输出

df
#   flow flow7mean
#1     1         4
#2     2         5
#3     3         6
#4     4         7
#5     5         8
#6     6        NA
#7     7        NA
#8     8        NA
#9     9        NA
#10   10        NA
#11   11        NA

Answer 3

这是使用embed的基本R选项

within(df,flow7mean <- `length<-`(rowMeans(embed(flow,7)),length(flow)))

给了

   flow flow7mean
1     1         4
2     2         5
3     3         6
4     4         7
5     5         8
6     6        NA
7     7        NA
8     8        NA
9     9        NA
10   10        NA
11   11        NA