MathGroup Archive 2000

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

Search the Archive

Re: Bug in Package Graphics`Graphics` ?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg26387] Re: [mg26348] Bug in Package Graphics`Graphics` ?
  • From: Tomas Garza <tgarza01 at prodigy.net.mx>
  • Date: Sat, 16 Dec 2000 02:40:16 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

No bug here, I'm afraid. First you ask to restrict the PlotRange, but 
forget to change the AxesOrigin. See what happens if you say

 In[1]:=
<< Graphics`Graphics`

In[2]:=
BarChart[{4, 10, 5, 7}, PlotRange -> {3, 10},
   AxesOrigin -> {0, 3}]

But now you have lost the horizontal axis labels. Then try:

In[3]:=
BarChart[{4, 10, 5, 7}, PlotRange -> {3, 10},
   AxesOrigin -> {0, 3}, Epilog -> {Text["1", {1, 3}, {0, 1}], Text["2", 
{2, 3}, {0, 1}],
    Text["3", {3, 3}, {0, 1}], Text["4", {4, 3}, {0, 1}]}]

You have your labels back. The problem is now that the default red color 
looks very strong. Then try something softer, and add a line along what 
should be the new horizontal axis:

In[4]:=
BarChart[{4, 10, 5, 7}, BarStyle -> {RGBColor[0.9, 0.9, 0.9]},
  PlotRange -> {3, 10}, AxesOrigin -> {0, 3},
  Epilog -> {Text["1", {1, 3}, {0, 1}], Text["2", {2, 3}, {0, 1}],
      Text["3", {3, 3}, {0, 1}], Text["4", {4, 3}, {0, 1}],
      Line[{{0, 3}, {4.5, 3}}]}]

This looks more or less right. Ah, and you have also taken care of the 
problem when negative values are present, since now the labels don't go 
away:

In[5]:=
BarChart[{-4, 10, 5, 7},
  Epilog -> {Text["1", {1, 0}, {0, 1}]}]

I myself don't go in for BarChart-ing, since I find it rather limited. I 
prefer to start from scratch and use graphics primitives to construct 
the bars whenever I have interesting charts to make.

Tomas Garza
Mexico City

"Ludsteck" <Ludsteck at zew.de> wrote:

> Dear Mathgroup members,
> I am very cautious in claiming to have found a bug in Mathematica, but 

> here I am almost sure.
> After loading the package
> <<Graphics`Graphics`
>
> I tried to plot a simple BarChart:
>
> BarChart[{4,10,5,7}]
>
> However, if I want to restrict the plot range
>
> BarChart[{4,10,5,7}, PlotRange->{3,10}]
>
> Mathematica does not respond with an error message, but
> still plots in the range {0,10}. (However, the y-axis is not visible 
in
> {0,3}.)
> Furthermore, bar edges are visible only in the range {3,10}.
> Finally, if the input list contains negative values, the bars hide the 

> BarLabels
> which is desastrous in my application.
>
> I am really an adherent of Mathematica, but if I am right here I have 
to
> state that it is not possible to create publication quality BarCharts 
with
> Mathematica. (At least not with the
> Add-On function BarChart.)
>
> Any suggestions?



  • Prev by Date: Modification to Thread or MapThread
  • Next by Date: Re: Second Opinion
  • Previous by thread: Re: Bug in Package Graphics`Graphics` ?
  • Next by thread: RE: Bug in Package Graphics`Graphics` ?