0

Rでのプロット全体に苦労しています.2つのチャートを互いに下に置き、それらを個別にフォーマットしたいと考えています。さらに、それぞれに移動平均を追加したいと思います。どうやってやるの？私はそれらを互いに下に描くことができましたが、まだ移動平均に苦労しています. 再現可能なコードの例として、SPY と Apple のデータを使用しました。

getSymbols("SPY")
getSymbols("AAPL")
par(mfrow=2:1)
plot(SPY, main="SPY")

plot(AAPL,main="AAPL")

また、それらを個別にフォーマットするにはどうすればよいですか? 両方のグラフにグリッド線を表示しませんか?

4

1 に答える 1

3

ライブラリrollmeanから使用するソリューションは次のとおりです。zoo

library(quantmod)

getSymbols("SPY")
getSymbols("AAPL")

par(mfrow=2:1)
plot(SPY[, "SPY.Open"], main="SPY", auto.grid=F)
lines(rollmean(SPY, k=30, fill=NA)[, "SPY.Open"], col="red")
plot(AAPL[, "AAPL.Open"], main="AAPL", auto.grid=F)
lines(rollmean(AAPL, k=30, fill=NA)[, "AAPL.Open"], col="red")

これは、始値と 30 日間の移動平均をプロットします。kウィンドウを調整するように変更できrollmeanます。また、ウィンドウをどのように配置するかのオプションもあります。デフォルトでは中央揃えです。

グリッド線を削除するには、追加するauto.grid=Fとうまくいくようです?plot.xts。

ここに画像の説明を入力

シリーズをプレーンな数値ベクトルに変換することで、ブルート フォースすることもできます。

spy.open <- as.vector(SPY[, "SPY.Open"])
plot(spy.open, type="l")

ここに画像の説明を入力

于 2013-10-30T19:30:25.603 に答える