Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

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

Search the Archive

Re: SmoothHistogram and Legends

  • To: mathgroup at smc.vnet.net
  • Subject: [mg126821] Re: SmoothHistogram and Legends
  • From: Bob Hanlon <hanlonr357 at gmail.com>
  • Date: Sun, 10 Jun 2012 02:15:20 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • References: <201206090707.DAA28360@smc.vnet.net>

You can roll your own:

SmoothHistogram[
 Table[Tooltip[
   RandomVariate[
    ExponentialDistribution[a], 500], a],
  {a, {0.1, 0.3, 0.5}}],
 Frame -> True, Axes -> False,
 PlotRange -> {{-2, 30}, {0, .4}},
 PlotStyle -> {Red, Blue, Green},
 Epilog -> {
   Table[{{Red, Blue, Green}[[n]],
     Line[{{20, .15 + .04 n},
       {22, .15 + .04 n}}],
     Black,
     Text[{0.1, .3, .5}[[n]],
      {23.5, .15 + .04 n}]},
    {n, 3}]}]


Bob Hanlon


On Sat, Jun 9, 2012 at 3:07 AM,  <dangoogle at warp-7.com> wrote:
> I am trying to put a legend on a SmoothHistogram that I generate
> (Mathematica 8), using an array of 6 data sets.  I can not find a
> single method for making a legend on a SmoothHistogram.  All of the
> methods that work with other charts and graphics don't seem to work
> with a SmoothHistogram.  Has anyone accomplished this?
>



  • Prev by Date: Re: Polarplot orientation
  • Next by Date: Re: Splitting sums in mathematica
  • Previous by thread: SmoothHistogram and Legends
  • Next by thread: Re: SmoothHistogram and Legends