Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*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 2005

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

Search the Archive

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
> 
> 


  • Prev by Date: goto and label (cont)
  • Next by Date: Output from Export[ ] (suggestion to Wolfram)
  • Previous by thread: BarChart
  • Next by thread: Coloring in ShowGraph[]