Re: bar chart with error bars
- To: mathgroup at smc.vnet.net
- Subject: [mg33675] Re: [mg33649] bar chart with error bars
- From: BobHanlon at aol.com
- Date: Sat, 6 Apr 2002 00:48:50 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Alternatively, rather than using error bars you could stack the bar charts.
Needs["Graphics`Graphics`"];
Needs["Graphics`Colors`"];
expdata=Table[{x,.92 10^(.94 x)+
Random[Real,{-1.0,1.0}]},{x,0.2,1.2,.1}];
bcexpdata=Map[Append[#,0.08]&,expdata];
DisplayTogether[
GeneralizedBarChart[
(#+{0,1,0})& /@ bcexpdata,
BarStyle->Red],
GeneralizedBarChart[
bcexpdata,
BarStyle->Blue],
GeneralizedBarChart[
(#-{0,1,0})& /@ bcexpdata,
BarStyle->Green]];
DisplayTogether[
GeneralizedBarChart[
(#+{0,1,0})& /@ bcexpdata,
BarStyle->Red, BarEdges->False],
GeneralizedBarChart[
bcexpdata,
BarStyle->Blue, BarEdges->False],
GeneralizedBarChart[
(#-{0,1,0})& /@ bcexpdata,
BarStyle->White, BarEdges->False]];
Bob Hanlon
Chantilly, VA USA
In a message dated 4/5/02 12:12:56 AM, writes:
>
>In a message dated 4/4/02 7:45:14 PM, J.A.Solomon at city.ac.uk writes:
>
>>is there a simple way to do this?
>>
>
>Needs["Graphics`Graphics`"];
>
>
>expdata=Table[{x,.92 10^(.94 x)+
> Random[Real,{-1.0,1.0}]},{x,0.2,1.2,.1}];
>
>
>bcexpdata=Map[Append[#,0.08]&,expdata];
>
>
>erexpdata=Map[Append[#,1.0]&,expdata];
>
>
>DisplayTogether[
>
> GeneralizedBarChart[bcexpdata],
>
> ErrorListPlot[erexpdata]];
>
>
>Bob Hanlon
>Chantilly, VA USA
>