我想使用 quantmod生成这样的图https://stat.ethz.ch/pipermail/r-sig-finance/attachments/20110826/19da3834/attachment.png 。
我想,一个非常简单的任务让我有点沮丧。我希望能够使用 quantmod 在图表上画一条线。经过几天的尝试,我一无所获。我看不到如何使用 quantmod::addLines 函数执行此操作的示例(这是我发现的唯一类似问题,但找不到答案http://r.789695.n4.nabble.com/quantmod-图-趋势线-td894632.html )
我的问题是:我想在指定的日期/时间/条 nad y 值处绘制一条水平线。这条线只允许从某个特定的条开始为 n(例如 5)条长(此外,我还想在指定的 y 值的行上方添加文本)。
我尝试了几件事:
getSymbols("SPY")
lines.SPY <- (Hi(SPY) + Lo(SPY))/2
names(lines.SPY) <- c("lines")
lines.SPY$BuySell <- ifelse(lag(lines.SPY$lines) > lines.SPY$lines, 1, -1)
chartSeries(SPY, subset="2011-08::", theme=chartTheme('white',
up.col='blue', dn.col='red'))
addTA(lines.SPY$lines[lines.SPY$BuySell == -1,], type='p', col='darkred', pch="_", on=1, cex = 2.5)
addTA(lines.SPY$lines[lines.SPY$BuySell == 1,], type='p', col='green4', pch="_", on=1, cex = 2.5)
但这实际上不是线条......而且我不知道如何添加文字......
然后我试过这个
getSymbols("SPY")
subset = "2011-03::"
dev.new()
chartSeries(SPY, subset=subset, theme="white")
test <- xts(rep(coredata(last(Cl(SPY))), 20), order.by=index(last(SPY, n=20)))
addTA(test, on=1, col="red", legend=NULL, lwd=3)
同样,无法添加文本。这种方法的另一个问题是我无法摆脱顶部的传说。由于我想在一个图表图例上绘制数十或数百条线,因此不应显示...
提前感谢您的想法/代码示例/...
最好的问候,萨摩。