Lines in a legend are too short
- To: mathgroup at smc.vnet.net
- Subject: [mg30514] Lines in a legend are too short
- From: Reinhold Kainhofer <reinhold at kainhofer.com>
- Date: Fri, 24 Aug 2001 20:58:09 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Hello,
I need to make several plots and list plots with 8 to 15 functions and a
legend to distinguish the different curves. However, in the legend the
lines are much too short to be able to distinguish Dashing[{Dash, Dot}]
from Dashing[{Dash, Dot, Dot}], or even Dashing[{Dash}] from
Dashing[{Dash, Dot}]. The plots are then automatically exported to eps
and included in a large LaTeX-Paper.
How can I make the lines in the legend longer? I'd really like to have
them twice as long as they are now.
I found out that the shape of the key boxes resembles the shape of the
whole legend, e.g. if you have LegendSize->{4,1}, the keybox is also 4
times wider than with LegendSize->{1,1}, but my LegendSize can't be much
wider, but the keyboxes (or rather the lines inside) should.
Using the ShowLegend function is not really an option, either, since it
would take ways too long to manually prepare the whole legend for each
of the plots.
Here is a sample of my plot calls (most options are taken from a global
variable, so I manually inserted them here to make the whole thing
shorter):
plotlist=Table[Table[Sin[i]Random[], {30}], {i,1,10}]; (* just random
data here, this is taken from lengthy calculations*)
EPSStylesTemp[n_]:=
Take[{AbsoluteDashing[{}],AbsoluteDashing[{Dash,Dash}],
AbsoluteDashing[{Dot}],AbsoluteDashing[{Dash,Dot}],
AbsoluteDashing[{Dash,Dot,Dot}],AbsoluteDashing[{LongDash,Dot}]},n]
EPSStyles[n_]:=
Join[({AbsoluteThickness[0.4],#1}&)/@
EPSStylesTemp[n],({AbsoluteThickness[0.2],#1}&)/@
EPSStylesTemp[n],({Thickness[0.0005],#1}&)/@EPSStylesTemp[n]]
ModelBProbZinsVergleichGraphBconst=MultipleListPlot[plotlist,
PlotLegend->{"pareto", "weibull", "gamma", "lognormal",
"paretoint",
"weibullint", "gammaint", "lognormalint"},
AxesLabel\[Rule]{"u", "\[Phi](u,1)"},
TextStyle\[Rule]{FontFamily\[Rule]"Helvetica",FontSize\[Rule]20},
PlotStyle\[Rule]EPSStyles[5],LegendSize\[Rule]{1.2, 1},
LegendPosition\[Rule]{0.8,-0.5},
LegendBorderSpace\[Rule]1,LegendSpacing\[Rule]0,LegendShadow\[Rule]None,
ImageSize\[Rule]{800,Automatic},
PlotJoined\[Rule]True,SymbolShape\[Rule]None
];
Thanks
Reinhold
--
------------------------------------------------------------------
DI Reinhold Kainhofer, Graz, Austria
email: reinhold at kainhofer.com, http://reinhold.kainhofer.com/
* Mathematics Department, Technical University of Graz
* Theoretical Physics Department, University of Graz
------------------------------------------------------------------