ఉదాహరణ 4 దశలు, ఒకే సెషన్లో క్రమంగా నడుస్తాయి. ప్రతి దశా ఇంజిన్పై అమలు చేయబడింది, కింది అవుట్పుట్ అది ఇచ్చినదే.
data = {0.3, 0.3, 1.2, 0.8, 3.1, 1, 4, 0.1};అవుట్పుట్ లేదు - ఈ దశ తదుపరి దానికి ఏదో సిద్ధం చేస్తుంది.
newdata = MapIndexed[If[# > Mean[data], Style[
Legended[#, Row[{"bar", First[#2]}]], ColorData[63, First[#2]]], #]&, data];అవుట్పుట్ లేదు - ఈ దశ తదుపరి దానికి ఏదో సిద్ధం చేస్తుంది.
styles = Sequence@@{ImageSize -> 400, ChartStyle -> Gray, GridLinesStyle -> Directive[AbsoluteThickness[3], LightGray]};అవుట్పుట్ లేదు - ఈ దశ తదుపరి దానికి ఏదో సిద్ధం చేస్తుంది.
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-అన్ని రెసిపీలు · ఫంక్షన్ రిఫరెన్స్ · దీన్ని MCP క్లయింట్ నుండి వాడండి