Re: view only every second bar lable on x-axes
- To: mathgroup at smc.vnet.net
- Subject: [mg61186] Re: view only every second bar lable on x-axes
- From: "Valeri Astanoff" <astanoff at yahoo.fr>
- Date: Wed, 12 Oct 2005 01:42:14 -0400 (EDT)
- References: <difrft$fgd$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Kristoph,
Here is an example with only odd rank x-labels:
In[1]:=Needs["Graphics`Graphics`"]
In[2]:=data={{1000,10},{2000,15},{3000,18},{4000,20},{5000,20},
{6000,18},{7000,10},{8000,15},{9000,14},{10000,10}};
In[3]:=tix = Table[{i, If[OddQ[i],
data[[i,1]],""]},{i,1,Length[data]}];
In[4]:=BarChart[data[[All,2]], Ticks -> {tix, Automatic}]
Out[4]=-Graphics-
hth
Valeri