Re: BarChart3D with labels
- To: mathgroup at smc.vnet.net
- Subject: [mg21336] Re: [mg21326] BarChart3D with labels
- From: BobHanlon at aol.com
- Date: Sun, 26 Dec 1999 01:26:14 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
In my initial reply, I should have pointed out that the BarValues can be displayed in a default format by just setting the BarChart option BarValues to True Needs["Graphics`Graphics`"]; lst1 = 20*Table[Random[], {5}]; BarChart[lst1, BarLabels -> Table["Group " <> ToString[k], {k, Length[lst1]}], BarValues -> True, PlotRange -> All]; However, to control the format of the BarValues, they need to be explicitly specified. In my initial reply I modified the precision of the BarValues. here I modify their precision and color (as well as the color of the BarLabels): Needs["Statistics`DescriptiveStatistics`"]; colorFunc[x_?NumericQ, lst_List] := Module[{mu = Mean[lst], sigma = StandardDeviation[lst]}, If[Abs[x - mu] <= sigma, RGBColor[0, .75, 0], If[x - mu > sigma, RGBColor[1, 0, 0], RGBColor[0, 0, 1]]]]; BarChart[lst1, BarLabels -> Table[ StyleForm["Group " <> ToString[k], FontColor -> colorFunc[lst1[[k]], lst1]], {k, Length[lst1]}], Prolog -> Table[ Text[ StyleForm[NumberForm[lst1[[k]], {4, 2}], FontColor -> colorFunc[lst1[[k]], lst1]], {k, lst1[[k]]}, {0, -1}], {k, Length[lst1]}], PlotRange -> All]; Bob Hanlon