Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1995
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1995

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

Search the Archive

RE: BarCharts and vertical axes

  • To: mathgroup at christensen.cybernetics.net
  • Subject: [mg509] RE: [mg496] BarCharts and vertical axes
  • From: "LAUER Marie-Reine 154851" <LAUER at dtp.cea.fr>
  • Date: 06 Mar 95 14:30:37-0000

Dear Mathgrouper, I am facing with the problem to draw bar charts of
quantities whose value is close. BarChart put the beginning
of the vertical axis at 0 and automatically squeezes the differecences I 
need
on the contrary to emphasize. Does anybody has had the same problem ?

The feature I like in BarChart is the possibility to have non numerical
abscissas. In other case I would have used FilledListPlot (* In
Graphics`FilledPlot *) after having properly
preprocessed my data:

data={-0.825, -0.925, -0.825, -0.825, -0.675, -1.025, -0.875,

  -0.975, -0.975, -0.825};

cl=Frequencies[data]; (* In Statistics`DataManipulation` *)
delta=0.025;
bottomvalue=0.5;

preprodata=Flatten[{{#[[1]]-delta,bottomvalue},
 {#[[1]]-delta+delta/100.,#[[2]]},
 {#[[1]]+delta-delta/100.,#[[2]]},
 {#[[1]]+delta,bottomvalue}}& /@ cl,1];

ListFilledPlot[preprodata,PlotJoined->True,PlotRange->{0,5},
Axes->False,Frame->True]


In my BarChart-histogram I would also put the possibility to: i) label each
bar; ii) color each bar according to a list of weights (this is useful if
you want to plot some fitted values which have different regression
coefficients and you do not want to lose this informations).


Thank you in advance for any help or suggestion.



Riccardo Rigon, Ph. D.

Civil Egineering Department
Texas A&M University
College Station, TX 77843
ph:  (409)-845-0335
fax: (409)-862-1542
e-mail: rrigon at zeus.tamu.edu




That is a little function which may help you, regards

barchart [listfrequency_,step_]:=
                       Show[Graphics[{Map[{Rectangle[{#[[1]],0},
                                                {#[[1]]+step,#[[2]]}]}&,
                                       listfrequency]}],
                                   Axes->True,
                                    
 AxesOrigin->{Min[Map[#[[1]]&,listfrequency]]-step,  0}]


 -------------------------------------------------------------
Marie-Reine LAUER
DTP/SECC
Centre d'Etudes Nucleaires de Grenoble
17 rue des Martyrs
38054 Grenoble Cedex 9

tel.        : 76 88 45 62
FAX     : 76 88 51 84
E-Mail : lauer at dtp.cea.fr






  • Prev by Date: Re: any better to apply a function to second column?
  • Next by Date: demodulation question
  • Previous by thread: Re: SOUND!
  • Next by thread: demodulation question