r - 如何计算 R 中的 7 天移动平均线?

标签 r zoo

我正在使用 zoo 包的 rollmean 函数来计算一个简单的 7 天移动平均线。该函数有一个参数 align,如果我输入“right”、“center”或“left”,它会更改值。它们有什么区别?

示例代码:

test <- sample(1:50)
data <- rollmean(test, 7, fill = list(NA, NULL, NA), align = "right")

test <- cbind(test, data)

最佳答案

我认为将所有 3 个结果并排查看很有启发意义:

library(zoo)
means <- sapply(c("right","center","left"),
                function(x)zoo::rollmean(test,7,align = x, na.pad = TRUE))
cbind(test,means)
      test    right   center     left
 [1,]    6       NA       NA 19.28571
 [2,]   50       NA       NA 21.42857
 [3,]   11       NA       NA 15.28571
 [4,]   16       NA 19.28571 15.00000
 [5,]    1       NA 21.42857 19.42857
 [6,]   26       NA 15.28571 25.28571
 [7,]   25 19.28571 15.00000 22.71429
 [8,]   21 21.42857 19.42857 24.42857
 [9,]    7 15.28571 25.28571 22.00000
[10,]    9 15.00000 22.71429 23.42857
...
[40,]   41 27.28571 31.85714 33.57143
[41,]   49 29.42857 31.71429 33.85714
[42,]   35 33.71429 31.42857 30.00000
[43,]   20 31.85714 33.57143 26.85714
[44,]   44 31.71429 33.85714 25.42857
[45,]   28 31.42857 30.00000       NA
[46,]   18 33.57143 26.85714       NA
[47,]   43 33.85714 25.42857       NA
[48,]   22 30.00000       NA       NA
[49,]   13 26.85714       NA       NA
[50,]   10 25.42857       NA       NA

关于r - 如何计算 R 中的 7 天移动平均线?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/61777516/

相关文章:

RStudio 需要很长时间才能显示 ggplot 图

r - 根据子组为组分配值

r - Windows 中的多个 shell 命令

R,修改包中的函数后,修改被忽略

r - 自适应移动平均线-R中的最佳性能

r - Twitter,错误 : 401 accessing '/1/statuses/sample.json' . 原因:未经授权

r - 将 Excel 数字转换为日期

r - 将时间序列聚合为年度数据

r - na.trim 在特定列上使用 data.table

r - R zoo中的聚合函数返回错误