data(OpenClose)
OpenClose plot(gvisCandlestickChart(OpenClose, options=list(legend='none')))
Run the code above in your browser using DataLab