MathGroup Archive 2005

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

Search the Archive

Re: view only every second bar lable on x-axes


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