Re: Bar Chart Options Question

• To: mathgroup at smc.vnet.net
• Subject: [mg54614] Re: [mg54581] Bar Chart Options Question
• From: "Christoph Lhotka" <lhotka at astro.univie.ac.at>
• Date: Thu, 24 Feb 2005 03:21:16 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

```On Wed, 23 Feb 2005 03:12:04 -0500 (EST)
Namrata Khemka <namrata.khemka at gmail.com> wrote:
> Hi Everyone,
> I am trying to do the following with bar chart.
>
> t = {1,2,3,4,0,6,7,8,9,10,11,12,13}
> BarChart[t]
>
> However, I would like 2 bars to be of a particular color. By this I
> mean, for the bars with value 1 and 2, it could be red, for bars with
> value 3 and 4 it could be green. and so on.
>
> One of the other things that I would like to do is, label the bars. I
> would like to have 1 label for bars with value 1 and 2. Another label
> for bars with values 3 and 4 and so on..
>
> Any suggestions as to how this can be done?
>
> Thanks a lot in advance.
>
> Namrata Khemka
>

With the data

In[..]:=data=Range[13];

Use Options Ticks and BarStyle to solve your formatting problem. If you define
a list of color directives, like

In[..]:=colortable={col1,col1,col2,col2,...};

where coli is RGBColor[...] or GrayLevel[.] or something like that, and define
explicit tick marks of the form:

In[..]:= helpvar=Table[{i, i}, {i, 1, 5}] // Flatten
Out[..]:= {1, 1, 2, 2, 3, 3, 4, 4, 5, 5}

In[..]:= tickstable={Table[{i, helpvar[[i]]}, {i, 1, 10}], Automatic};

In[..]:=BarChart[data, BarStyle :> colortable, Ticks -> tickstable,
BarGroupSpacing -> 0]

you will get your desired result with the exception, that the value on the
x-axes will be printed under each column.

Another way is to use GeneralizedBarChart :

In[..]:=data = Range[13];

In[..]:=boxdata = Table[{i, data[[i]], 1}, {i, 1, 13}];
In[..]:=colortable =
Table[Table[RGBColor[i, 1 - i, 0], {3}], {i, 0, 1, .3}] // Flatten;
In[..]:=tickstable = {Table[{i - 1, i/3}, {i, 3, 13, 3}], Automatic};
In[..]:=GeneralizedBarChart[data2, BarStyle -> colortable, Ticks ->
tickstable]

...

Look the help browser for Ticks, FrameTicks, BarStyle, PlotStyle ...

-- Christoph Lhotka --
University of Vienna
Institute for Astronomy
Tuerkenschanzstr. 17
1180 Vienna, Austria
fon. +43.1.4277.518.41
mail. lhotka at astro.univie.ac.at

```

• Prev by Date: Testing the 'type' of a root returned by Solve
• Next by Date: Re: Solving a weakly singular integral equation - Take 2.
• Previous by thread: Re: Bar Chart Options Question
• Next by thread: Mathematica 5 and Windows XP