Come disegnare una linea sul grafico chartSeries usando quantmod?

Question

Mi piacerebbe produrre una trama come questa https://stat.ethz.ch/pipermail/r-sig-finance/attachments/20110826/19da3834/attachment.png usando quantmod.

Sono un po 'frustrato, suppongo, un compito molto semplice. Mi piacerebbe essere in grado di tracciare una linea sul grafico usando quantmod. Dopo diversi giorni di tentativi, non sto andando da nessuna parte. Non riesco a vedere un esempio su come farlo con la funzione quantmod :: addLines (questa è l'unica domanda simile che ho trovato ma non ho trovato una risposta http://r.789695.n4.nabble.com/quantmod-plot-trendline-td894632.html)

Il mio problema è questo: vorrei tracciare una linea orizzontale al valore di data/ora/barra specificato. Questa riga è consentita solo per essere n (ad esempio 5) barre che iniziano a partire da una determinata barra (inoltre vorrei anche aggiungere il testo appena sopra la linea del valore y specificato).

Ho provato diverse cose:

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) 

Ma questo non sono in realtà le linee ... E non so ow per aggiungere del testo ...

Poi ho provato questo

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) 

Ancora, non è possibile aggiungere testo. L'altro problema con questo approccio è che non riesco a sbarazzarmi della leggenda in alto. Dal momento che voglio disegnare decine o centinaia di quelle linee su uno legenda del grafico non dovrebbe essere visualizzato ...

Grazie in anticipo per le vostre idee/esempi di codice/...

Con i migliori saluti, Samo.

Answer 1

(Sto solo copiando la risposta di R-sig-finance, di Stergios Marinopoulos) Utilizza la nuova funzione chart_Series(), insieme a testo e segmenti.

require(quantmod) 
getSymbols("SPY") 
chart_Series(SPY, subset="2011-08::", type = "candlesticks") 
text(9, 112.00, "SOME TEXT", adj=0); 
segments(9, 111.5, 12, 111.5) ; 

Alcuni commenti aggiuntivi da parte mia. Per aggiungere un messaggio: text(x,y,"message") dove x è il numero della barra (1 per la barra più a sinistra, è possibile utilizzare 0 o negativo per disegnare a sinistra), e y è il valore nel grafico. Per adj, 0 significa left-align, 1 significa right-align, 0.5 significa center it. Al di fuori dell'intervallo 0..1 lo sposta di conseguenza (ma forse non saggio affidarsi a questo).

segmenti (x1, y1, x2, y2) disegna una linea da (x1, y1) a (x2, y2), dove di nuovo x è un indice di barra e y è un prezzo.

Il seguente disegna un triangolo isoscele, nel 20% rosso opaco: poligono (c (20,30,40), c (5290,5320,5290), col = "# ff000033")

Vale a dire tutte le funzioni grafiche R sono disponibili; ma devi usare chart_Series().