MathGroup Archive 2013

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

Search the Archive

Re: barchart

  • To: mathgroup at smc.vnet.net
  • Subject: [mg129829] Re: barchart
  • From: Helen Read <readhpr at gmail.com>
  • Date: Sun, 17 Feb 2013 04:09:53 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • Delivered-to: l-mathgroup@wolfram.com
  • Delivered-to: mathgroup-newout@smc.vnet.net
  • Delivered-to: mathgroup-newsend@smc.vnet.net
  • References: <kfn7o2$qal$1@smc.vnet.net>

list1 = RandomInteger[{1, 25}, 5];
list2 = RandomInteger[{8, 15}, 8];

BarChart[{list1, list2}, Epilog -> {Red, Line[{{0, 10}, {15, 10}}]}]

plot1 = BarChart[{list1, list2}];

plot2 = Plot[10, {x, 0, 14}, PlotStyle -> Red];
Show[{plot1, plot2}]

Helen Read
University of Vermont

On 2/16/2013 1:08 AM, Francisco Gutierrez wrote:
> Dear Group:
>
> I have not managed to combine BarChart with a line.
>
> The simple problem is the following. I have a labeled BarChart (that
> is, I use the ChartLegends options) , and I want to draw a horizontal
> line, to highlight the separation say between units below and above 10.
> But I do not see how can this be done within BarChart, and I haven't
> been able to combine BarChart with the line using Show or Graphics.
>
> Can somebody help me?
>
> Francisco
>






  • Prev by Date: Re: Stephen Wolfram's recent blog
  • Next by Date: Re: Mathematica and trivial math problems that school children can solve.
  • Previous by thread: Re: barchart
  • Next by thread: barchart