data(OpenClose)
Weekday
Fri
Mon
Thurs
Tues
Wed
Low
Open
Close
High
OpenClose plot(gvisCandlestickChart(OpenClose, options=list(legend='none')))
Run the code above in your browser using DataCamp Workspace