R/plot_ohlc.R

In philbtcecho/btcecho: Analysis functions used by BTC-ECHO for research purposes.

#' Plot OHLC
#'
#' Generate a nice OHLC/candlestick plot with different moving averages
#' Still to do: y-ticks at the right side are a complete fuck.
#'
#' @param ohlc an xts with the close, high, low, open and volume-Vals
#' @param ymin minimal value on y-axis
#' @param ymax maximal value on y-axis
#' @param max_past An integer defining past x days analyzed
#'
#' @author Philipp Giese
#' @return A nifty plot with MA140, MA980 and MA1400
#' @export
#' @examples
#' plot_ohlc_complete(btcecho:::calculate_price("CCCAGG","BNB","USD",2000),0,20,365)

plot_ohlc <-
function(ohlc,ymin,ymax,max_past){
  mytheme<-quantmod::chart_theme()
  mytheme$col$up.col<-"dark green"
  mytheme$col$grid<-"#b3b3b3"
  mytheme$col$grid2<-"#666666"
  mytheme$format.labels<-F
  ohlc<-ohlc[,c(4,2,3,1)]
  end_date<-paste(gsub("-","",Sys.Date()-max_past),"/",sep="")
  temp<-NULL
  temp<-quantmod::chart_Series(ohlc,theme = mytheme,name="",subset=end_date)
  mainylim<-temp$get_ylim()
  mainylim[[2]]<-structure(c(ymin,ymax),fixed=T)
  temp$set_ylim(mainylim)
  temp <- quantmod::add_TA(TTR::SMA(ohlc[,4],1400),lwd=3,on=1,col="red",legend = NULL)
  temp <- quantmod::add_TA(TTR::SMA(ohlc[,4],980),lwd=3,on=1,col="blue",legend = NULL)
  temp <- quantmod::add_TA(TTR::SMA(ohlc[,4],140),lwd=3,on=1,col="dark green",legend = NULL)
  temp
}