Re: BarChart Bug?

*To*: mathgroup at smc.vnet.net*Subject*: [mg23621] Re: [mg23587] BarChart Bug?*From*: BobHanlon at aol.com*Date*: Wed, 24 May 2000 02:16:22 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

In a message dated 5/21/2000 6:23:10 PM, cBLZ at hhs.se writes: >I want to display probabilities and cumulative probabilities for a discrete >random variable (integer valued) in the same bar chart. > >In 'My example' (see below), the height of the vertical axis gets chopped >at .35, so the cumprobs do not get properly graphed. When I make two >separate charts they are both OK. > >At the same time the 'Simple test example' works well. > >New trial, this time with the option PlotRange->{0,1} added. >Now it works. > >What went wrong? The Help Browser says nothing about this in the BarChart >article. Why doesn't BarChart[] calculate the PlotRange properly in 'My >example'? > >Regards, >Bjorn Leonardz > >----------------------------------------------- > ><< Graphics`Graphics` > >** Simple test example >testprobs = {.1, .2, .4, .2, .1}; >testcumprobs = {.1, .3, .7, .9, 1.}; >BarChart[testprobs, testcumprobs] > >** My example >probs = {1, 3, 6, 9, 11, 13, 14, 13, 11, 9, 6, 3, 1}/100. >cumprobs = {1, 4, 10, 19, 30, 43, 57, 70, 81, 90, 96, 99, 100}/100. >BarChart[probs] >BarChart[cumprobs] >BarChart[probs, cumprobs] >BarChart[probs, cumprobs, PlotRange->{0,1}] > << Graphics`Graphics` probs = {1, 3, 6, 9, 11, 13, 14, 13, 11, 9, 6, 3, 1}/100.; cumprobs = FoldList[Plus, First[probs], Rest[probs]]; BarChart[probs, cumprobs]; BarChart[probs, cumprobs, PlotRange -> {0, 1}]; Mathematica frequently truncates graphs--not just barcharts--in an effort to improve the readability of the likely areas of interest. In trying to find a "compromise" view that conveys as much information as possible, the default sacrificed some display of the CDF. Whenever, its built-in algorithm truncates what you are interested in seeing, you can always specify the PlotRange. However, as you can see when you specified the PlotRange, it is difficult to read the values for the PDF. An alternate solution is to use separate axes for the PDF and CDF. For example, since the max value of the PDF is about 0.15 scale = 1/0.15; BarChart[probs*scale, cumprobs, Frame -> True, FrameLabel -> {None, "PDF\n", None, "\nCDF"}, FrameTicks -> { Automatic, Join[Table[{y*scale, y}, {y, 0, .15, .03}], Table[{y*scale, ""}, {y, 0, .15, .01}]], None, Join[Table[{y, y}, {y, 0, 1, .2}], Table[{y, ""}, {y, 0, 1, .05}]]}, ImageSize -> {500, 328}]; Bob BobHanlon at aol.com