第 1 步

data = {0.3, 0.3, 1.2, 0.8, 3.1, 1, 4, 0.1};

无输出——这一步是在为下一步做准备。

第 2 步

newdata = MapIndexed[If[# > Mean[data], Style[
	Legended[#, Row[{"bar", First[#2]}]], ColorData[63, First[#2]]], #]&, data];

无输出——这一步是在为下一步做准备。

第 3 步

styles = Sequence@@{ImageSize -> 400, ChartStyle -> Gray, GridLinesStyle -> Directive[AbsoluteThickness[3], LightGray]};

无输出——这一步是在为下一步做准备。

第 4 步

BarChart[newdata, ChartElementFunction -> "FadingRectangle", GridLines -> {None, {Mean[data]}}, Evaluate@styles, ChartLegends -> SwatchLegend[None, LegendMarkerSize -> 20, LegendMarkers -> "FadingRectangle", LabelStyle -> {Gray, Bold, 18}, LegendLabel -> "above mean"]]

输出

-Graphics-

在 Qurak 上运行全部操作示例

用到的函数

AbsoluteThickness BarChart ColorData Directive First If Legended MapIndexed Mean Row Style SwatchLegend

Legend specific values

用到的函数

相关操作示例