MathGroup Archive 2005

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

Search the Archive

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


  • Prev by Date: NET/Link with Mono?
  • Next by Date: Re: sqrt(x^2) = x
  • Previous by thread: view only every second bar lable on x-axes
  • Next by thread: Re: view only every second bar lable on x-axes