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?
>
- References:
- SmoothHistogram and Legends
- From: dangoogle@warp-7.com
- SmoothHistogram and Legends