Re: Arrow pointers rather than Legend
- To: mathgroup at smc.vnet.net
- Subject: [mg36608] Re: Arrow pointers rather than Legend
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Fri, 13 Sep 2002 23:33:05 -0400 (EDT)
- Organization: Universitaet Leipzig
- References: <alrtdl$hb2$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
Needs["Graphics`Arrow`"]
Plot[{Sin[x], Cos[x]}, {x, 0, 2Pi},
Epilog -> {{GrayLevel[0.9], Rectangle[{3.75, 0.25}, {5.2, 0.9}]},
Arrow[{4, 0.75}, {2, Sin[2]}], Text[Sin[x], {4, 0.75}, {-1, 0}],
Arrow[{4, 0.5}, {2, Cos[2]}], Text[Cos[x], {4, 0.5}, {-1, 0}]}]
Regards
Jens
JM wrote:
>
> Instead of using Legend in plots with multiple series is there a way
> to have arrows with a text at the end identifying the different
> series? The reason I'd like this is that the legend is a bit 'bulky'
> looking and I'd want something tidier.
>
> I know there is an Arrow package but I think you'd need to manually
> enter each start and end point of each arrow - is there a simple
> command to do this?
>
> Also - is there a way to adjust the legend font size? I.e. make it
> small so that it doesn't interfere with data series.
> _
> |\
> \
> \
> \
> \
> thankyou