r - 如何使用 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))

我会对低点做同样的事情，但我认为我最好使用 DonchianChannel()但这不是我想要的......输出应该返回类似于 FinViz 的内容:

Answer 1

您可以应用摆动过滤器，例如 TTR 的 ZigZag功能。以这种方式识别反转似乎比 Donchian channel 更好，您可以将支撑/阻力定义为反转倾向于聚集的水平。