Gráficos & Visualização

Use visualização estatística para analisar dados financeiros

Combine gráficos candelabro com visualizações estatísticas mostrando a distribuição de preços de fechamento.

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["Distribuição de Preços de Ações", 15],

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["Densidade dos Preços de Ações", 15],

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["Quantil do Preço de Ações", 15],

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["Histograma do Preço de Ações", 15],

Frame -> {Left, Top, Right},

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

Out[8]=