MathGroup Archive 2012

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

Search the Archive

Re: SmoothHistogram and Legends


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