Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

Re: bar chart ticks not placed well?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg106216] Re: bar chart ticks not placed well?
  • From: r_poetic <radford.schantz at mms.gov>
  • Date: Tue, 5 Jan 2010 01:46:27 -0500 (EST)
  • References: <hhkj8q$56f$1@smc.vnet.net>

On Jan 1, 5:37 am, Bob Hanlon <hanl... at cox.net> wrote:
> First, the BarSpacing must be set to zero. Then there must be a slight shift of 1/2 to put the ticks in the middle of the bars. This latter issue is more evident for small n (look also at n=10).
>
> n = 100;
>
> s = 2^n;
>
> slist = Table[Binomial[n, k]/s,
>    {k, 0, n}];
>
> Total[slist]
>
> 1
>
> Show[{BarChart[slist,
>    Ticks -> {
>      Table[{k + 1/2, k}, {k, n/10, n, n/10}],
>      Automatic},
>    BarSpacing -> 0,
>    ImageSize -> 400],
>   Plot[Interpolation[
>      Thread[{Range[0, n], slist}]][x - 1/2],
>    {x, 1/2, n + 1/2},
>    PlotRange -> All,
>    PlotStyle -> Directive[Red, Thick]]}]
>
> Bob Hanlon
>
> ---- rs_poetic <schantz-pla... at cox.net> wrote:
>
> =============
> Hello,
> in this simple bar chart, there are 101 bars (some of them very small
> and including 0 and 100). The x axis labels appear to be shifted a bit
> to the left. The apparent misplacement is enough to be noticed and to
> confuse the reader.  Am I using the wrong command, or....?
>
> s = Sum[Binomial[100, k], {k, 0, 100}];
> slist = Table[Binomial[100, k], {k, 0, 100}];
> labellist = Table[k, {k, 0, 100, 25}];BarChart[N[slist/s], Ticks -> {labellist, Automatic}]



Thanks! I appreciate both solution and the extra material about
interpolation.
RS


  • Prev by Date: Re: Wrong ODE solution in Mathematica 7?
  • Next by Date: Re: Bind double-[ to keyboard shortcut
  • Previous by thread: Re: bar chart ticks not placed well?
  • Next by thread: Re: Financial Data - Currencies