R 可变移动平均函数

我需要你在R中的一个函数方面的帮助。我不知道如何编程：输入应该是一个包含所有数据的数据框，指定检查数据的数据框中的列名，以及一个指示平均值可变性的数值。数值是通过多少个值来确定的​​应形成平均值。例如，见： 我的数据：

这里的重要列是C，这里的数值可以是2到5

输出应该是一个数据帧，仅包含平均值

例如：
输入：MyData，C，2 输出：

或者例如：
输入：MyData，C，4 输出：

当然，只有条例草案的结果才可以看到，为了理解，我已经写下了这条道路

---

我希望有人能帮助我。谢谢大家!

如果您愿意使用data.table：

df = as.data.frame(runif(10))
names(df) = 'c'
setDT(df)

df[ , output := (c + shift(c))/2]

---

如果您愿意使用data.table：

df = as.data.frame(runif(10))
names(df) = 'c'
setDT(df)

df[ , output := (c + shift(c))/2]

---

看看RcppRoll包

library(RcppRoll)
roll_mean(df$C, 2)
roll_mean(df$C, 4)

---

看看RcppRoll包

library(RcppRoll)
roll_mean(df$C, 2)
roll_mean(df$C, 4)

---

你好检查这个你好检查这个谢谢你的回答，但是我现在不明白。它如何在这样一个函数中工作：movingMean啊，是的，不是，它只是data.table的一个简单的滞后/超前特性。我会使用@Lee提供的答案，效果很好。谢谢你的回答，但我现在不明白。它如何在这样一个函数中工作：movingMean啊，是的，不是，它只是data.table的一个简单的滞后/超前特性。我会使用@Lee提供的答案，效果很好。很酷，我想这会对我有帮助。谢谢，我想这会对我有帮助的。谢谢

library(RcppRoll)
roll_mean(df$C, 2)
roll_mean(df$C, 4)