Ilustre tendências de ações com gráficos de linha 

O estilo Inline mostra apenas o conteúdo dos gráficos, sendo ótimo para usar em legendas.

mostre o input completo de Wolfram Languageoculte o input

In[1]:=

X ticks = {"MMM", "AXP", "T", "BA", "CAT", "CVX", "CSCO", "KO", "DD", "XOM", "GE", "GS", "HD", "INTC", "IBM", "JNJ", "JPM", "MCD"}; data = FinancialData[#, {{2010, 1}, {2010, 12, 31}}] & /@ ticks;

In[2]:=

X inlines = DeleteCases[ DateListPlot[TimeSeriesAggregate[TimeSeries@#, {20, "Day"}], PlotTheme -> "Inline", AspectRatio -> Full, ImageSize -> {50, 30}], _?ColorQ, Infinity] & /@ data

Out[2]=

Use PointLegend para construir uma barra de opções com gráficos de linha.

In[3]:=

X PointLegend[106, ticks, LegendMarkers -> inlines, LegendMarkerSize -> {50, 30}, LegendLayout -> (SetterBar["MMM", Thread[ticks -> (Labeled[Sequence @@ #, Top] & /@ #)], Appearance -> "Horizontal" -> {2, 9}] &)]

Out[3]=

Visualize interativamente informações detalhadas de ações a partir de uma seleção de gráficos de linha.

In[4]:=

X DynamicModule[{x = "T"}, Column[{PointLegend[106, ticks, LegendMarkers -> inlines, LegendMarkerSize -> {50, 30}, LegendLayout -> (SetterBar[Dynamic[x], Thread[ticks -> (Labeled[Sequence @@ #, Top] & /@ #)], Appearance -> "Horizontal" -> {2, 9}] &)], Dynamic[ TradingChart[{x, {{2010, 1}, {2010, 12, 31}}}, ImageSize -> 550], TrackedSymbols :> {x}]}, Alignment -> Center], SaveDefinitions -> True]

Out[4]=