Re: bar chart ticks not placed well?

*To*: mathgroup at smc.vnet.net*Subject*: [mg106105] Re: [mg106066] bar chart ticks not placed well?*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Fri, 1 Jan 2010 05:37:42 -0500 (EST)*Reply-to*: hanlonr at cox.net

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-plante 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}]