quantmod를 사용하여이 https://stat.ethz.ch/pipermail/r-sig-finance/attachments/20110826/19da3834/attachment.png과 같은 플롯을 생성하고 싶습니다.quantmod를 사용하여 chartSeries plot에 선을 그리는 방법은 무엇입니까?
저는 약간의 좌절감을 느낍니다. 매우 간단한 작업입니다. 나는 quantmod를 사용하여 차트에 선을 그릴 수 있기를 원합니다. 며칠간 노력한 후에 나는 아무데도 가지 않습니다. 나는 quantmod :: addLines 함수로이를 수행하는 방법에 대한 예제를 볼 수 없다. (이것은 찾을 수있는 유일한 비슷한 질문이다. http://r.789695.n4.nabble.com/quantmod-plot-trendline-td894632.html)
내 문제는 다음과 같다. 지정된 일자/시각/꺾은 시각의 수평선. 이 행은 특정 막대에서 시작하여 길이가 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)
다시 텍스트를 추가 할 수 없습니다. 이 접근 방식의 또 다른 문제점은 내가 맨 위에있는 전설을 제거 할 수 없다는 것입니다. 내가 수십 또는 하나의 차트 범례에 그 라인의 수백을 그리는 원하기 때문에 당신의 아이디어/코드 예제 미리 ...
감사를 표시 할 수 없습니다한다/...
안부, SAMO.
나는 좋은 대답/해결책 https://mailman.stat.ethz.ch/pipermail/r-sig-finance/2011q3/008425.html을 받았습니다. 감사. – Samo