Re: Problem for using "Epilog" to plot legend
- To: mathgroup at smc.vnet.net
- Subject: [mg89152] Re: Problem for using "Epilog" to plot legend
- From: nano2giga at gmail.com
- Date: Tue, 27 May 2008 07:15:00 -0400 (EDT)
- References: <ftmtuu$4ob$1@smc.vnet.net>
On 11 Apr, 00:46, davis <davis.v.... at gmail.com> wrote:
> Dear Group
>
> i want to use "Epilog" to plot alegend,but i have a problem for the "Line" command.
>
> ListPlot[{{1, 2, 3, 5, 8}, {2, 3, 6, 9, 10}}, Joined -> True,
> PlotMarkers -> Automatic,
> Epilog ->
> Inset[Framed@
> Column[{Graphics[{DotDashed, Line[{{1, 0}, {2, 0}}]}] Style["a"],
> Graphics[{Dotted, Line[{{1, 0}, {2, 0}}]}] Style["b"]},
> Spacings -> 0, ItemSize -> {15, 0.5}], {1.25, 7}]]
>
> the space between different rows in "legendarea" are really large,
>
> but if i change the Line condition,such like below
>
> ListPlot[{{1, 2, 3, 5, 8}, {2, 3, 6, 9, 10}}, Joined -> True,
> PlotMarkers -> Automatic,
> Epilog ->
> Inset[Framed@
> Column[{Graphics[{DotDashed, Line[{{100, 0}, {2, 0}}]}]
> Style["a"],
> Graphics[{Dotted, Line[{{100, 0}, {2, 0}}]}] Style["b"]},
> Spacings -> 0, ItemSize -> {15, 0.5}], {1.25, 7}]]
>
> the rows became close to each other, but the length of the lines became too long
>
> how can i solve this?
>
> thank you
Adjust a little bit, and it works.
ListPlot[{{1, 2, 3, 5, 8}, {2, 3, 6, 9, 10}}, Joined -> True,
PlotMarkers -> Automatic,
Epilog ->
Inset[Framed@
Graphics[{{DotDashed, Line[{{1, 0}, {2, 0}}]},
Text[Style["a", Bold, 8], {2.5, 0}], {Dotted,
Line[{{1, -1}, {2, -1}}]},
Text[Style["b", Bold, 8], {2.5, -1}]}, ImageSize -> 40,
AspectRatio -> 0.4], {1.25, 7}]]