1. library(quantmod)
  2. getSymbols("GS")
  3. x = candleChart(GS,multi.col=TRUE,theme='white', plot = F) 
  5. data_ = as.matrix(x@xdata)
  7. require(rCharts)
  8. r1 <- rCharts$new()
  9. r1$setLib('echarts')
  10. r1$set(series = list(list(
  11.   name = 'GS',
  12.   data = toJSONArray2(data_[,1:4], names = F, json = F),
  13.   type = 'k'
  14. )))
  15. r1$set(xAxis = list(list(
  16.  type  = 'category',
  17.  data = gsub("-", "/", rownames(data_))
  18. )))
  19. r1$set(yAxis = list(list(
  20.   type = 'value',
  21.   scale = TRUE
  22. )))
  23. r1$set(tooltip = list(
  24.   trigger = 'axis'  
  25. ))
  26. r1$set(dataZoom = list(
  27.     show = TRUE,
  28.     realtime = TRUE,
  29.     start = 0,
  30.     end = 50 
  31. ))
  32. r1