【发布时间】：2016-12-27 07:24:54
【问题描述】：
我还没有找到任何关于如何在 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's 做同样的事情，但我认为使用 DonchianChannel() 会更好，但这不是我想要的...输出应该返回类似于 FinViz 的内容：
【问题讨论】：
-
如果您不想要
DonchianChannel的变化，您想如何量化定义您的“支撑/阻力”水平？你所要求的可能意味着很多事情。假设您不是指您在此处发布的图表中的那些线，因为它们只是 SMA，可以通过 TTR 的SMA函数轻松添加？ -
@FXQuantTrader 我的意思是支撑/阻力位（紫色水平线）。
-
您如何具体定义这些级别？定义算法
-
这是我不知道的，因为通常人们只会将它们绘制到图表上。但必须有一种数学方法。我认为引用的网站没有时间在每个图表上画线。