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