Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2007

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

Search the Archive

RE: Re: BarChart - intensity of colour increases up the

  • To: mathgroup at smc.vnet.net
  • Subject: [mg81921] RE: [mg81844] Re: BarChart - intensity of colour increases up the
  • From: "Tom O'Brien" <tomfabtastic at hotmail.com>
  • Date: Sat, 6 Oct 2007 04:49:07 -0400 (EDT)
  • References: <fdvq2s$lhe$1@smc.vnet.net>


Fantastic - thanks everyone !

> Date: Sat, 6 Oct 2007 01:18:01 +0200> From: =
kuska at informatik.uni-leipzig.de> To: tomfabtastic at hotmail.com> CC: drmajorb=
ob at bigfoot.com; mathgroup at smc.vnet.net> Subject: Re: [mg81844] Re: BarChart=
 - intensity of colour increases up the bar> > Hi,> > StackedBarChart[{1, 2=
, 3}, {3, 3, 3},> BarStyle -> {Yellow, Black}] /. {color_, edge_,> Rectangl=
e[{x1_, y1_}, {x2_, y2_}]} :> (clr => ToColor[color, RGBColor]; {edge,> P=
olygon[{{x1, y1}, {x2, y1}, {x2, y2}, {x1, y2}},> VertexColors -> {Append[L=
ist @@ clr, 0], Append[List @@ clr, 0],> Append[List @@ clr, y2], Append[Li=
st @@ clr, y2]}]})> > ??> > Regards> Jens> > Tom O'Brien wrote:> > By way o=
f example, if I apply your solution to a StackedBarChart it > > works well =
:> > > > **> >> > *StackedBarChart[{1,2,3}, {3,3,3}]/.Rectangle[{x1_,*> >> =
> *y1_},{x2_,y2_}]=A6Polygon[{{x1,y1},{x2,y1},{x2,y2},{x1,y2}},*> >> > *Ver=
texColors=AE{{1,0,0,0},{1,0,0,0},{1,0,0,y2},{1,0,0,*> >> > *y2}}]> > * > > =
However, what if my StackedBarChart has two colours on each bar, eg:> > *St=
ackedBarChart[{1,2,3}, {3,3,3}, BarStyle=AE{Yellow, Black}]> > * > > So my =
question is, how can I get the changing colour intensity up the > > bar (wh=
ich has been achieved on the BarChart) on a StackedBarChart, > > where each=
 bar has two colours ?> > > > Thanks - I appreciate your help,> > Tom> >> >=
 > To: tomfabtastic at hotmail.com; kuska at informatik.uni-leipzig.de; > > mathg=
roup at smc.vnet.net> > > Subject: Re: [mg81844] Re: BarChart - intensity of c=
olour increases > > up the bar> > > From: drmajorbob at bigfoot.com> > > Date:=
 Fri, 5 Oct 2007 14:53:40 -0500> > >> > > Send an example.> > >> > > Bobby>=
 > >> > > On Fri, 05 Oct 2007 03:53:43 -0500, Tom O'Brien > > <tomfabtastic=
@hotmail.com>> > > wrote:> > >> > > >> > > > Thanks,> > > > However, I'm ha=
ving trouble getting it to work with a StackedBarChart> > > > that has a co=
lour for each bar. The Rectangles are gathered like > > {{a},> > > > {b}, {=
c}, ...} so I want the first half of the rectangles to be one> > > > colour=
 and the second half another colour.> > > > Any suggestions ?> > > > Thanks=
,> > > > Tom> Date: Thu, 4 Oct 2007 13:44:47 -0500> To:> > > > kuska@inform=
atik.uni-leipzig.de; mathgroup at smc.vnet.net;> > > > tomfabtastic at hotmail.co=
m> Subject: Re: [mg81844] Re: BarChart -> > > > intensity of colour increas=
es up the bar> From: > > drmajorbob at bigfoot.com>> > > > > Or...> > Needs["B=
arCharts`"]> BarChart[{1, 2, 3}] /.> > > Rectangle[{x1_,> > > > y1_}, {x2_,=
 y2_}] :>> Polygon[{{x1, y1}, {x2, y1}, {x2, y2}, {x1, > > y2}},>> > > > Ve=
rtexColors -> {{1, 0, 0, 0}, {1, 0, 0, 0}, {1, 0, 0, y2}, {1, > > 0,> 0,> >=
 > > y2}}]> > Bobby> > On Thu, 04 Oct 2007 03:36:08 -0500, Jens-Peer > > Ku=
ska >> > > > <kuska at informatik.uni-leipzig.de> wrote:> > > > > tomfabtastic=
@hotmail.com>> > > > > > > -- > DrMajorBob at bigfoot.com> > > > _____________=


  • Prev by Date: Re: How to help Mathematica take an integral
  • Next by Date: RE: Re: BarChart - intensity of colour increases up the
  • Previous by thread: RE: Re: BarChart - intensity of colour increases up the
  • Next by thread: RE: Re: BarChart - intensity of colour increases up the