Gráficos y visualización

Use visualización estadística para analizar datos de financieros

Combine gráficos de velas con visualizaciones estadísticas que muestran la distribución de precios de cierre.

In[1]:=

In[2]:=

In[3]:=

In[4]:=

In[5]:=

In[6]:=

In[7]:=

In[8]:=

Grid[{{Show[{Graphics[Inset[g2, {0.5, 24}, {0.5, 24}, Length[close]]],

CandlestickChart[data]}, AspectRatio -> 1, ImageSize -> 250,

PlotRange -> {{0.5,

Length[close] + 0.5}, {Min[data[[All, 2, 3]]],

Max[data[[All, 2, 2]]]} + {-0.15,

0.1} (Max[data[[All, 2, 2]]] - Min[data[[All, 2, 3]]])},

Axes -> False, PlotLabel -> Style["Stock Price Distribuion", 20],

Frame -> {Left, Top, Right},

BaseStyle -> {FontFamily -> "Helvetica"}],

Show[{Graphics[Inset[g3, {0.5, 24}, {0, 24}, Length[close]]],

CandlestickChart[data]}, AspectRatio -> 1, ImageSize -> 250,

PlotRange -> {{0.5,

Length[close] + 0.5}, {Min[data[[All, 2, 3]]],

Max[data[[All, 2, 2]]]} + {-0.15,

0.1} (Max[data[[All, 2, 2]]] - Min[data[[All, 2, 3]]])},

Axes -> False, PlotLabel -> Style["Stock Price Density", 20],

Frame -> {Left, Top, Right},

BaseStyle -> {FontFamily -> "Helvetica"}]}, {Show[{Graphics[

Inset[g4, {0.5, 24}, {0, 24}, {Length[close], l}]],

CandlestickChart[data]}, AspectRatio -> 1, ImageSize -> 250,

PlotRange -> {{0.5,

Length[close] + 0.5}, {Min[data[[All, 2, 3]]],

Max[data[[All, 2, 2]]]} + {-0.15,

0.1} (Max[data[[All, 2, 2]]] - Min[data[[All, 2, 3]]])},

Axes -> False, PlotLabel -> Style["Stock Price Quantile", 20],

Frame -> {Left, Top, Right},

BaseStyle -> {FontFamily -> "Helvetica"}],

Show[{Graphics[Inset[g, {0.5, 24}, {0, 24}, {Length[close], l}]],

CandlestickChart[data]}, AspectRatio -> 1, ImageSize -> 250,

PlotRange -> {{0.5,

Length[close] + 0.5}, {Min[data[[All, 2, 3]]],

Max[data[[All, 2, 2]]]} + {-0.15,

0.1} (Max[data[[All, 2, 2]]] - Min[data[[All, 2, 3]]])},

Axes -> False, PlotLabel -> Style["Stock Price Histogram", 20],

Frame -> {Left, Top, Right},

BaseStyle -> {FontFamily -> "Helvetica"}]}}]

Out[8]=