ShowLegend....
- To: mathgroup at smc.vnet.net
- Subject: [mg53617] ShowLegend....
- From: "plizak" <plizak at gmail.com>
- Date: Thu, 20 Jan 2005 03:48:05 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
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 *)
plotX = Show[ {plot2 , plot3}, PlotRange -> {{ -0.4, 0.4}, {-1, 10}}]
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?
Is there a way that the legend also includes an example of the line /
linestyle?
Cheers and thanks,
Peter