如何使用R找到支持/阻力水平

Question

我没有找到关于如何在R中找到支撑/阻力位的任何好的答案。基本上我想要股票正在整合的集群/区域或枢轴，但发现很难这样做。

# loads quatmod & xts
library("quantmod")
# Retrive 'ESSI' TICKER OHLCV data
STOCK = getSymbols("ESSI",auto.assign = FALSE)
# last observation carried formward / facilitates NAs
STOCK <- reclass(apply(STOCK,2,na.locf),match.to=STOCK)

# To be used as a rolling window
K=20
# Find MAX for Each Open, High, Low, Close Column & merge them
MAX <- merge.xts(rollmax(Op(STOCK), k=K, na.pad=TRUE),rollmax(Hi(STOCK), k=K, na.pad=TRUE),rollmax(Lo(STOCK), k=K, na.pad=TRUE),rollmax(Cl(STOCK), k=K, na.pad=TRUE))
# Find the mean of each MAX row
MAX <- na.locf(reclass(apply(MAX,1,mean),match.to=MAX))

我也会为Low做同样的事情，但我认为我最好不要使用DonchianChannel()，但这不是我想要的......输出应该返回类似于FinViz的内容＆＃ 39; s：

Answer 1

您可以应用TTR＆＃39; ZigZag功能等摇摆过滤器。以这种方式识别逆转似乎是比Donchian渠道更好的方式，你可以将支撑/阻力定义为逆转趋向于聚集的水平。