Re: ShowLegend....
- To: mathgroup at smc.vnet.net
- Subject: [mg53656] Re: ShowLegend....
- From: Bill Rowe <readnewsciv at earthlink.net>
- Date: Fri, 21 Jan 2005 06:37:03 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
On 1/20/05 at 3:48 AM, plizak at gmail.com (plizak) wrote:
>There has to be an easier way to do this....
>I was trying to figure out how to use showlegend, and here's what I
>came out with....
>(* plot2 and plot3 are two different plots *)
>legend = ShadowBox[ {-0.4, 6}, {0.3, 3}, ShadowBackground -> GrayLevel[
>0.5], ShadowOffset -> {0.025, -0.5}];
>
>showlegend = Show[ plotX, Graphics[{legend , {
>Text["Normal - solid", {-.375, 6.775}, {-1.0, 0}],
>Text["Data - dashed", {-.375, 7.775}, {-1.0, 0}]}}]]
>That is way to much code to just add a legend to a graph.
>Is there a faster/easier way to do this?
Easier/faster is in the eye of the beholder
>Is there a way that the legend also includes an example of the linestyle?
Yes, for example
Plot[{x^2, x^3}, {x, -1, 1},
PlotStyle -> {Hue[0], GrayLevel[0]},
Epilog -> {Text["x^2", {0.7, 0.1}, {-1, 0}],
Text["x^3", {0.7, 0.05},{-1, 0}],
Line[{{0.6, 0.05}, {0.69, 0.05}}], Hue[0],
Line[{{0.6, 0.1}, {0.69, 0.1}}]}];
--
To reply via email subtract one hundred and four