Re: BarChart and Ticks problem.

*To*: mathgroup at smc.vnet.net*Subject*: [mg73216] Re: [mg73179] BarChart and Ticks problem.*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Thu, 8 Feb 2007 03:31:27 -0500 (EST)*Reply-to*: hanlonr at cox.net

Needs["Statistics`DataManipulation`"]; Needs["Graphics`"]; sid = N[Table[Sin[Pi Random[]], {1000}]]; freqtst = BinCounts[sid, {0, 1, 0.02}]; midp = Table[i, {i, 0.02, 1, 0.02}]; BarChart[Transpose[{freqtst, midp}],ImageSize->400, BarLabels->Join@@Table[{"","","","",i},{i,.1,1,.1}], BarStyle->Join[Table[LightBlue,{4}],{Red}]] ; Bob Hanlon ---- luhaorice at gmail.com wrote: > Hello, All > I have a problem with BarChart and Ticks. > > Needs["Statistics`DataManipulation`"]; > Needs["Graphics`Graphics`"]; > sid = N[Table[Sin[Pi Random[]], {1000}]]; > freqtst = BinCounts[sid, {0, 1, 0.02}]; > midp = Table[i, {i, 0.02, 1, 0.02}]; > BarChart[Transpose[{freqtst, midp}]] > (* The ticks on X axis is correct except crowded*) > Show[%, Ticks -> Automatic] > (*here, I have the wrong X axis ticks. The range of the ticks is from > 0 to 50 which doesn't make any sense because Sin[x] is always less or > equal than 1. *) > > ListPlot[Transpose[{midp, freqtst}], Ticks -> Automatic] > (* this gives me the right answer*) > > Any suggestions? > Thanks! >