New in Wolfram
Mathematica
8: Financial Visualization
◄
previous
|
next
►
Graphics & Visualization
Use Placed to Position Labels
Use
Placed
to specify how labels should be positioned relative to the date and prices in a chart.
In[1]:=
X
LineBreakChart[{"^DJI", {{2008, 9}, {2009, 4}}}, ImageSize -> 500, EventLabels -> {{2008, 10, 1} -> Placed[Column[{Style["Economic Crisis", 20, Bold, Darker@Red], Style["\[DownArrow]", 30, Darker@Red]}], {{0.5, 1}, {0, 0}}], {2008, 12, 30} -> Placed[Column[{Style["Crude Oil: $44/barrel", 20], Style["\[DownArrow]", 30]}, Center], {{0.5, 2}, {0.5, 0}}], {2009, 3, 6} -> Placed[Style[ Rotate["Dow Sheds ~45% \[LongRightArrow]", -90 Degree], 20], {{0.5, 5}, {0.5, 0}}]}, PlotLabel -> Style["Dow Jones Industrial Average", 30], BaseStyle -> {FontFamily -> "Helvetica"}, Axes -> {True, False}, Frame -> {{True, True}, {False, True}}, AspectRatio -> 1, TrendStyle -> "BrownYellow", ChartElementFunction -> "FadingRectangle", GridLines -> None]
Out[1]=