Aktientrends mit der Inline-Vorlage illustrieren 

Die Inline-Vorlage, die nur den Inhalt von Graphiken anzeigt, eignet sich ideal für Legenden.

Die gesamte Wolfram-Language Eingabe zeigenEingabe verbergen

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]=

Verwenden Sie PointLegend, um eine Graphik der in Zeilen aufgereihten Aktientrends zu erstellen.

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]=

Präsentieren Sie auf interaktive Weise detaillierte Aktieninformationen eines ausgewählten Aktientrends.

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]=