Using TradingChart and DateListPlot:
In[1]:= Needs["QuandlLink`"]
In[4]:= dowJonesOHLCV =
QuandlFinancialData[
"YAHOO/INDEX_DJI",
startDate -> "2015-01-01",
column -> 1 ;; 6];
In[6]:= dowJonesOHLCV[[1 ;; 10]]
Out[6]= {{{Date}, {Open, High, Low, Close, Volume}}, {{2015, 1,
2}, {17823.1, 17951.8, 17731.3, 17833., 7.627*10^7}}, {{2015, 1,
5}, {17821.3, 17821.3, 17475.9, 17501.7, 1.1616*10^8}}, {{2015, 1,
6}, {17504.2, 17581.1, 17262.4, 17371.6, 1.0187*10^8}}, {{2015, 1,
7}, {17374.8, 17597.1, 17374.8, 17584.5, 9.103*10^7}}, {{2015, 1,
8}, {17592., 17916., 17592., 17907.9, 1.1489*10^8}}, {{2015, 1,
9}, {17911., 17915.3, 17686.1, 17737.4, 9.339*10^7}}, {{2015, 1,
12}, {17742.1, 17793.9, 17571.6, 17640.8, 9.25*10^7}}, {{2015, 1,
13}, {17645., 17923., 17498.2, 17613.7, 9.936*10^7}}, {{2015, 1,
14}, {17609.1, 17609.1, 17264.9, 17427.1, 1.0918*10^8}}}
TradingChart[Rest@dowJonesOHLCV, PlotLabel -> "OHLCV"]
In[11]:= dowJonesClose = QuandlFinancialData[
"YAHOO/INDEX_DJI",
startDate -> "2015-01-01",
column -> 5];
In[12]:= dowJonesClose[[1 ;; 5]]
Out[12]= {{{Date}, {Close}}, {{2015, 1, 2}, {17833.}}, {{2015, 1,
5}, {17501.7}}, {{2015, 1, 6}, {17371.6}}, {{2015, 1,
7}, {17584.5}}}
In[16]:= DateListPlot[Rest@dowJonesClose, GridLines -> True, PlotTheme -> "Business", Filling -> Bottom]