Re: BarChart Labeling

*To*: mathgroup at smc.vnet.net*Subject*: [mg121382] Re: BarChart Labeling*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Tue, 13 Sep 2011 07:19:26 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*Reply-to*: hanlonr at cox.net

data = RandomReal[{0, 1.}, 10]; BarChart[ Round[data, .01], LabelingFunction -> Above, ChartLabels -> Range[10], PlotRangePadding -> {None, 0.1}] BarChart[ data, LabelingFunction -> (Placed[Round[#, .01], Above] &), ChartLabels -> Range[10], PlotRangePadding -> {None, 0.1}] BarChart[ data, LabelingFunction -> (Placed[NumberForm[#, {3, 2}], Above] &), ChartLabels -> Range[10], PlotRangePadding -> {None, 0.1}] Bob Hanlon ---- Don <donabc at comcast.net> wrote: ============= I have spent hours trying to do something that in principle is very simple but it's not simple in Mathematica unless you stumble across the magic keystrokes. Here is a bar chart that illustrates the problem. data = RandomReal[{0,1.},10] BarChart[data, LabelingFunction->Above, ChartLabels-> Range[10], PlotRangePadding->{None, 0.1}] As you can see, the height numbers above the bars have too many decimal places to look good on the chart. Specifically, what is the secret to getting the numbers which are the heights of the bars to be printed in format NumberForm[#, {3,2}] (only two decimal digits) with Style[FontFamily->Arial, Bold, 12]. Thank you in advance.