New in Wolfram
Mathematica
8: Visualización financiera
◄
previous
|
next
►
Gráficos y visualización
Use Placed para ubicar etiquetas
Use
Placed
para especificar cómo deben ubicarse las etiquetas en relación a la fecha y a los precios en un gráfico.
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]=