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

MathGroup Archive 2007

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

Search the Archive

Re: Adding coloured Polygon to a BarChart

  • To: mathgroup at smc.vnet.net
  • Subject: [mg83993] Re: Adding coloured Polygon to a BarChart
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Thu, 6 Dec 2007 02:46:58 -0500 (EST)
  • Organization: Uni Leipzig
  • References: <fj65e2$fnd$1@smc.vnet.net>
  • Reply-to: kuska at informatik.uni-leipzig.de

Hi,

and

barShape3 =
  BarChart[{1, 2, 3},
   Epilog -> {Style[Text["First", {1, 2}, {0, -1}], 12, Red,
      Bold], {Red,
      Polygon[{{1.25, 2}, {1.5, 2}, {1.5, 2.25}, {1.25, 2.25}}]}}]
??
Regards
   Jens

tomfabtastic at hotmail.com wrote:
> Hi,
> 
> The below chart successfully uses Epilog to include some text on the
> BarChart:
> 
> Needs["BarCharts`"]
> barShape1 =
>  BarChart[{1, 2, 3},
>   Epilog -> {Style[Text["First", {1, 2}, {0, -1}], 12, Red, Bold]}]
> 
> However, I want to add a small Polygon to the graph. Again this works
> well as long as the Polygon is black:
> 
> barShape2 =
>  BarChart[{1, 2, 3},
>   Epilog -> {Style[Text["First", {1, 2}, {0, -1}], 12, Red, Bold],
>     Polygon[{{1.25, 2}, {1.5, 2}, {1.5, 2.25}, {1.25, 2.25}}]}]
> 
> But I would like to make the Polygon a red colour. But the below does
> not work :
> 
> barShape3 =
>  BarChart[{1, 2, 3},
>   Epilog -> {Style[Text["First", {1, 2}, {0, -1}], 12, Red, Bold],
>     Graphics[{Red,
>       Polygon[{{1.25, 2}, {1.5, 2}, {1.5, 2.25}, {1.25, 2.25}}]}]}]
> 
> Does anyone have a suggestion for adding a coloured Polygon to a
> BarChart ?
> 
> Regards,
> Tom
> 


  • Prev by Date: Re: How do I let them know about a bug ?
  • Next by Date: Re: Controlling evaluation
  • Previous by thread: Adding coloured Polygon to a BarChart
  • Next by thread: Re: Adding coloured Polygon to a BarChart