Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2001
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2001

[Date Index] [Thread Index] [Author Index]

Search the Archive

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
------------------------------------------------------------------


  • Prev by Date: Re: Fitting to a square wave
  • Next by Date: Re: Plot Joined Intelligently
  • Previous by thread: RE: extra vertical lines showing up in plots
  • Next by thread: Re: Lines in a legend are too short