WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター
特定の値に凡例を付ける

特定の値に凡例を付ける

Wolfram Language code: data = {0.3, 0.3, 1.2, 0.8, 3.1, 1, 4, 0.1};
データ中の平均よりも大きい要素に，固有の色と凡例のテキストを加えるために，データを修正する：
Wolfram Language code: newdata = MapIndexed[If[# > Mean[data], Style[ Legended[#, Row[{"bar", First[#2]}]], ColorData[63, First[#2]]], #]&, data];
平均よりも大きい要素に凡例を付けた棒グラフを作成する：
Wolfram Language code: styles = Sequence@@{ImageSize -> 400, ChartStyle -> Gray, GridLinesStyle -> Directive[AbsoluteThickness[3], LightGray]};
Wolfram Language code: BarChart[newdata, ChartElementFunction -> "FadingRectangle", GridLines -> {None, {Mean[data]}}, Evaluate@styles, ChartLegends -> SwatchLegend[None, LegendMarkerSize -> 20, LegendMarkers -> "FadingRectangle", LabelStyle -> {Gray, Bold, 18}, LegendLabel -> "平均を超える"]]