Re: BarChart - intensity of colour increases up the bar

• To: mathgroup at smc.vnet.net
• Subject: [mg81873] Re: BarChart - intensity of colour increases up the bar
• From: tomfabtastic at hotmail.com
• Date: Fri, 5 Oct 2007 04:55:53 -0400 (EDT)
• References: <fdvq2s\$lhe\$1@smc.vnet.net><fe29o0\$ncb\$1@smc.vnet.net>

```On Oct 4, 6:54 pm, Jens-Peer Kuska <ku... at informatik.uni-leipzig.de>
wrote:
> Hi,
>
> Needs["BarCharts`"]
> bc = BarChart[{1, 2, 3}, BarStyle -> Directive[Opacity[0.5], Red]]
>
> bc /. Rectangle[{x1_, y1_}, {x2_, y2_}] :> Polygon[
>     {{x1, y1}, {x2, y1}, {x2, y2}, {x1, y2}},
>     VertexColors -> {
>       {1, 0, 0, 1}, {1, 0, 0, 1}, {1, 0, 0, 0.25}, {1, 0, 0, 0.25}}]
>
> Regards
>    Jens
>
>
>
> tomfabtas... at hotmail.com wrote:
> > Hello,
>
> > I am just wondering whether there is an easy way to shade bars in a
> > bar chart, so that the intensity of the colour increases as you go up
> > the bar. I guess Opacity will be involved but am not sure how.
>
> > This shading should be the same for each bar, regardless of the height
> > of the bar. So in the below example, each bar starts with the same
> > opacity along the x-axis and each finishes with a dense red at the top
> > (or Opacity[1.0]).
>
> > Needs["BarCharts`"]
> > BarChart[{1, 2, 3}, BarStyle -> Directive[Opacity[0.5], Red]]
>
> > Regards,
> > Tom- Hide quoted text -
>
> - Show quoted text -

Thanks - that works well. Any idea how to apply this a
StackedBarChart ?

StackedBarChart[{0.5, 0.8, 1.2, 1.5, 0.6}, {1, 2, 3, 4, 5}]

Thanks,
Tom

```

• Prev by Date: (Never Mind? Can't duplicate result!) Re: Can
• Next by Date: Re: BarChart - intensity of colour increases up the bar
• Previous by thread: Re: Re: BarChart - intensity of colour increases up the bar
• Next by thread: Re: BarChart - intensity of colour increases up the bar