Question

我有一个每日数据的数据框：df有四列：Date, A, B, C 并试图按列获取每周数据的平均值。我试过了：

library(xts)
xdf <- xts(df[ ,-1],as.Date(df$Date))

apply.weekly(xdf,mean)

但是这给了我所有列的平均值。我需要每栏的每周手段。

感谢您的帮助

Answer 1

首先得到一些数据（我将使用data.frame因为你正在使用它，但我真的建议你为时间序列对象使用时间序列类）

getSymbols("SPY", src='yahoo', from='2012-05-01', to='2012-06-15',
           return.class='data.frame')
#"SPY"

apply.weekly会将数据分成几周，并将功能应用到每周。 apply.weekly(SPY, mean)会计算该周所有数据的平均值，但您希望它计算每周的每列的平均值。因此，您必须apply mean到每个列

apply.weekly(SPY, function(x) apply(x, 2, mean)) # SPY.Open SPY.High SPY.Low SPY.Close SPY.Volume SPY.Adjusted #2012-05-04 139.6425 140.4675 138.750 139.3275 149400050 138.6075 #2012-05-11 135.9480 136.9320 135.338 136.2040 173105700 135.5020 #2012-05-18 133.3000 133.9180 132.036 132.1760 229282720 131.4960 #2012-05-25 131.7660 132.6800 130.896 132.2140 176634780 131.5340 #2012-06-01 131.7100 132.8925 130.290 131.2725 191170200 130.5950 #2012-06-08 130.2780 131.3380 129.584 130.8580 175917220 130.1820 #2012-06-15 132.8420 133.7760 131.828 132.8020 184751180 132.2540

作为参考，apply.weekly是period.apply的包装，因此您也可以使用
获得上述结果
period.apply(SPY, endpoints(SPY, "weeks"), FUN=function(x) apply(x, 2, mean))

如何使用R计算每列数据的平均值？

1 个答案: