Re: BarChart
- To: mathgroup at smc.vnet.net
- Subject: [mg57766] Re: [mg57746] BarChart
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Wed, 8 Jun 2005 03:21:15 -0400 (EDT)
- Reply-to: hanlonr at cox.net
- Sender: owner-wri-mathgroup at wolfram.com
Needs["Graphics`"];
data=Table[Random[Integer,{1,10}],{8}];
Plot[0,{x,1/2,Length[data]+1/2},
Epilog->{
AbsoluteDashing[{5,5}],
Line[{{#[[1]],0},{#[[1]],#[[2]]}}]&/@
Thread[{Range[Length[data]],data}]},
Ticks->{Table[{n,n},{n,Length[data]}],Automatic},
AxesOrigin->{1/2,0},
PlotRange->
{{1/2,Length[data]+1/2},{-0.1,Max[data]}}];
Show[MultipleListPlot[data,
SymbolShape->Stem[.001],
DisplayFunction->Identity]/.
Line[p_]->{AbsoluteDashing[{5,5}],Line[p]},
Ticks->{Table[{n,n},{n,Length[data]}],Automatic},
DisplayFunction->$DisplayFunction];
Bob Hanlon
>
> From: Swati Shah <swatshah at gmail.com>
To: mathgroup at smc.vnet.net
> Date: 2005/06/07 Tue AM 02:03:48 EDT
> Subject: [mg57766] [mg57746] BarChart
>
> Hi Everyone,
> I was wondering if it is possible to have a straight dashed line for
> the bars on the barChart, instead of a bar?
>
> Thanks
>
>