1

私は毎日のデータのデータ フレームを持っています: 4 つの列を持つ df:Date, A, B, C で、列ごとに毎週のデータの平均を取得しようとしています。私は試した：

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

apply.weekly(xdf,mean)

しかし、これは私にすべての列の平均を与えます。各列の週平均が必要です。

ご協力ありがとうございました

4

1 に答える 1

8

最初にいくつかのデータを取得します (使用しdata.frameているのは a を使用しますが、時系列オブジェクトには時系列クラスを使用することを強くお勧めします)

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))
于 2012-06-20T23:29:21.840 に答える