Новое в системе Wolfram
Mathematica
8: Финансовая визуализация
◄
предыдущая
|
следующая
►
Графика и визуализация
Использование команды Placed для размещения ярлыков
Использование команды
Placed
для задания положения ярлыка по отношению к дате и цене на диаграмме.
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]=