r - Rは確率分布として抵抗レベルをサポートします

Question

TTRにはいくつかの優れたTA指標があります。さまざまなタイプのサポートおよびレジスタンスレベルを計算してグラフ化するパッケージまたは関数はありますか？可能性のあるサポートおよびレジスタンスレベルの確率分布が望ましい

Answer 1

これが私のコメントをフォローアップするための例です。

月次データを使用してピボットを計算します。毎月、前月のデータから計算されたサポートとレジスタンスを使用します。(もちろん、日次データを使用した月次ピボットである必要はありません。日次ピボットと日中価格シリーズを使用できます)

library(quantmod)
getSymbols("SPY", from="2010-05-01", to="2012-06-15")
mSPY <- to.monthly(SPY, drop.time=TRUE)
# pivots() is excluded from the TTR build because it uses quantmod functions,
# but you can still get it from GitHub by running:
#source("https://raw.githubusercontent.com/joshuaulrich/TTR/master/R/pivots.R")
piv <- lag(pivots(mSPY, lagts=FALSE))
#merge, and fill forward pivot values so that there is a value for each day
dat <- cbind(SPY, piv)
dat[, 7:11] <- na.locf(dat[, 7:11])
chartSeries(OHLC(SPY), theme='white')
addTA(dat$S1, on=1, col='lightblue')
addTA(dat$S2, on=1, col='blue')
addTA(dat$R1, on=1, col='pink')
addTA(dat$R2, on=1, col='red')

それは以下を生成します：

ドンチャンチャネルはサポートとレジスタンスとしても見られる

chartSeries(OHLC(SPY), theme='white')
dc <- lag(DonchianChannel(cbind(Hi(SPY), Lo(SPY))))
addTA(dc$low, on=1, col='blue')
addTA(dc$high, on=1, col='red')

Answer 2

quantmod のテクニカル分析インジケーターのほとんどは、私が作成した TTR パッケージから取得されます。サポート/レジスタンスラインのような主観的な指標は含めませんでした. そうは言っても、quantmod にはaddLines使用できる関数があります。

library(quantmod)
getSymbols("SPY", from="2012-01-01", to="2012-06-15")
chartSeries(SPY, TA="addLines(h=c(134,141))", theme="white")

生成するもの: