R：如何将移动平均线应用于数据框中的列子集？

Question

我有一个数据框（training.set），它是83个变量的150个观察值。 我想用一些移动平均值来转换这些列中的82个。 问题是结果最终只能是150个数字值（即1列）。

如何将移动平均函数分别应用于数据中的每一列，并使第83列保持不变？ 我觉得这很简单，但是我找不到解决方案。

我当前的代码

# apply moving average on training.set data to 82 of 83 rows
library(TTR)  #load TTR library for SMA functions
ts.sma <- SMA(training.set[,1:82], n = 10)
ts.sma

谢谢你的帮助。

Answer 1

apply(training.set[,1:82], 2, SMA, n=10)

请注意，这会将data.frame转换为矩阵-如果您需要将输出作为data.frame， data.frame(...)其包装在data.frame(...) 。