WOLFRAM

Wolfram Language & System Documentation Center

Customized Financial Data Visualizations

Create a volume-price bubble chart with open-close price distribution and a date-close density plot annotated on the sides.

    
Acquire the open, high, low, closing, and volume data of a stock:
Wolfram Language code: data = FinancialData["AAPL", "OHLCV", {{2012, 1, 1}, {2012, 7, 27}}];
Wolfram Language code: date = AbsoluteTime /@ data[[All, 1]];
Wolfram Language code: ndata = data[[All, 2]];
Wolfram Language code: {open, high, low, close, v} = Transpose@ndata;
Compute the ranges of values:
Wolfram Language code: {mind, maxd} = Through[{Min, Max}[date]];{mind, maxd} = {mind, maxd} + {-0.1, 0.1}(maxd - mind);
Wolfram Language code: {minh, maxh} = Through[{Min, Max}[high]]; {minh, maxh} = {minh, maxh} + {-0.1, 0.1}(maxh - minh);
Wolfram Language code: {mino, maxo} = Through[{Min, Max}[open]]; {mino, maxo} = {mino, maxo} + {-0.1, 0.1}(maxo - mino);
Wolfram Language code: {minl, maxl} = Through[{Min, Max}[low]]; {minl, maxl} = {minl, maxl} + {-0.1, 0.1}(maxl - minl);
Wolfram Language code: {minc, maxc} = Through[{Min, Max}[close]]; {minc, maxc} = {minc, maxc} + {-0.1, 0.1}(maxc - minc);
Create the charts to display:
Wolfram Language code: g = BubbleChart3D[Transpose@{open, close, date, v}, BubbleSizes -> {0.02, 0.08}, AxesLabel -> {"Open", "Close", "Date"}, FaceGrids -> None, ChartStyle -> 14];
Wolfram Language code: openclose = SmoothDensityHistogram[Transpose[{open, close}], Frame -> False, PlotRangePadding -> None, ColorFunction -> "SunsetColors"];
Wolfram Language code: highlow = SmoothDensityHistogram[Transpose[{high, low}], Frame -> False, PlotRangePadding -> None, ColorFunction -> "SunsetColors"];
Wolfram Language code: highclose = SmoothDensityHistogram[Transpose[{high, close}], Frame -> False, PlotRangePadding -> None, ColorFunction -> "SunsetColors"];
Wolfram Language code: lowclose = SmoothDensityHistogram[Transpose[{low, close}], Frame -> False, PlotRangePadding -> None, ColorFunction -> "SunsetColors"];
Wolfram Language code: ztickspos = Quantile[date, {0, 1 / 5, 2 / 5, 3 / 5, 4 / 5, 1}];
Wolfram Language code: ticks = DateString[#, "DateShort"]& /@ ztickspos;
Wolfram Language code: zticks = Transpose[{ztickspos, ticks}];
Wolfram Language code: line = DateListPlot[Transpose[{date, close}], Axes -> False, Frame -> False, ImageSize -> 500, GridLines -> None, AspectRatio -> 1, PlotRangePadding -> None, Joined -> True, PlotStyle -> Thickness[0.01]];
Create a composite graphic for the final display:
Wolfram Language code: Show[{ Graphics3D[{Texture[openclose], Polygon[{{mino, minc, mind}, {maxo, minc, mind}, {maxo, maxc, mind}, {mino, maxc, mind}}, VertexTextureCoordinates -> {{0, 0, 0}, {1, 0, 0}, {1, 1, 0}, {0, 1, 0}}]}], Graphics3D[{Texture[line], Polygon[{{mino, minc, mind}, {mino, minc, maxd}, {mino, maxc, maxd}, {mino, maxc, mind}}, VertexTextureCoordinates -> {{0, 0, 0}, {1, 0, 0}, {1, 1, 0}, {0, 1, 0}}]}], g}, FaceGrids -> None, PlotRangePadding -> None, Boxed -> {Bottom, Left}, Lighting -> "Neutral", Axes -> True, AxesLabel -> {"Open", "Close"}, BoxRatios -> {1, 1, 1}, ImageSize -> 500, PlotLabel -> Style["Stock Price and Volume Bubble", 20], AxesEdge -> {{-1, -1}, {1, -1}, {-1, -1}}, Ticks -> {Automatic, Automatic, zticks}, BaseStyle -> {FontFamily -> "Helvetica"}]