Новое в системе Wolfram
Mathematica
9
◄
предыдущая
|
следующая
►
Новое в системе Wolfram
Mathematica
9
›
Легенды
Значения, отмеченные в легенде
In[1]:=
X
styles = Sequence @@ {ImageSize -> 400, ChartStyle -> Gray, GridLinesStyle -> Directive[AbsoluteThickness[3], LightGray]};
In[2]:=
X
data = {0.3, 0.3, 1.2, 0.8, 3.1, 1, 4, 0.1};
Изменение данных с целью добавления уникального цвета и текста, для использования в легенде для точек, превышающих среднее значение.
In[3]:=
X
newdata = MapIndexed[If[# > Mean[data], Style[ Legended[#, Row[{"bar", First[#2]}]], ColorData[63, First[#2]]], #] &, data];
Создание столбцевой диаграммы, в которой точки, превышающие среднее значение массива, отмечены в легенде.
In[4]:=
X
BarChart[newdata, ChartElementFunction -> "FadingRectangle", GridLines -> {None, {Mean[data]}}, Evaluate@styles, ChartLegends -> SwatchLegend[None, LegendMarkerSize -> 20, LegendMarkers -> "FadingRectangle", LabelStyle -> {Gray, Bold, 18}, LegendLabel -> "above mean"]]
Out[4]=