MathGroup Archive 2005

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Bar Chart lablels

  • To: mathgroup at smc.vnet.net
  • Subject: [mg59764] Re: [mg59715] Bar Chart lablels
  • From: ggroup at sarj.ca
  • Date: Sat, 20 Aug 2005 03:14:00 -0400 (EDT)
  • References: <200508180417.AAA08617@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

On Thu, 18 Aug 2005 00:17:19 -0400 (EDT), Steve Gray wrote

> I have a BarChart with several hundred bars. The problem is that the 
> three-digit numeric labels on the X-axis are so close together that 
> they overlap and are unreadable. Is there a way to:

<snip>

> 2. Make one-fifth (say) of the labels appear and suppress the rest?

You don't mention how you create your labels, but presumably you have a list.  
I'm assuming you've stored that list in "barlabel"

<<Graphics`Graphics`

data = Table[10i, {i, 5}];
barlabel = Table[i/1000., {i, 5}];

BarChart[data,
  BarLabels -> (Table[If[Mod[i, 5] == 0, barlabel[[i]], ""], {i, 
        Length[barlabel]}])]

> 3. Turn the whole thing 90 degrees CW so the bars stick out to the 
> right, in which case the labels would be horizontal and not overlap?

BarChart[data, BarOrientation -> Horizontal, BarLabels -> barlabel]

More options are described in the documentation for the Graphics`Graphics` add-
on package: <http://documents.wolfram.com/mathematica/Add-
onsLinks/StandardPackages/Graphics/Graphics.html>.





  • Prev by Date: Re: Invisible Characters
  • Next by Date: Re: Re: Setting gridlines thickness in Plot
  • Previous by thread: Bar Chart lablels
  • Next by thread: Re: Bar Chart lablels