Problem with the legend in MultipleListPlot
- To: mathgroup at smc.vnet.net
- Subject: [mg41473] Problem with the legend in MultipleListPlot
- From: Marcus Schulmerich <mschulme at yahoo.com>
- Date: Wed, 21 May 2003 08:03:22 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
I have a question related to MultiplListPlot with a legend in the diagram.
The text files data_1.dat, data_2.dat contain the data in the table-format:
For file data_1.dat:
50 1.2
60 2.3
70 2.3
80 4.0
90 5.1
100 5.2
110 5.9
120 6.4
130 7.1
140 8.5
150 10.1
For file data_2.dat:
50 1.4
60 2.3
70 3.3
80 4.0
90 5.5
100 6.2
110 6.9
120 6.4
130 6.1
140 7.5
150 9.2
To load the data:
help1 = Import["data_1.dat", "table"]
help2 = Import["data_2.dat", "table"]
Use: <<Graphics`MultipleListPlot`
Mathematica command:
MultipleListPlot[help1, help2, PlotJoined -> True, Frame -> True,
PlotRange -> {{49.9999, 150.0001}, {-75.0001, 100.0001}},
GridLines -> {Table[{x, {GrayLevel[0.8]}}, {x, 60, 140, 10}],
Table[{x, {GrayLevel[0.8]}}, {x, -50, 75, 25}]},
TextStyle -> {FontSize -> 7, FontFamily -> "Times New Roman"},
PlotLegend -> {StyleForm["initial", FontSize -> 6,
FontFamily -> "Times New Roman"],
StyleForm["after 3 mos after initiation.", FontSize -> 6,
FontFamily -> "Times New Roman"]}, LegendPosition -> {-0.45, 0.25},
LegendSize -> {0.8, 0.2},
FrameLabel -> {"Cash inflows in $", "Net present value of project in $"}, SymbolShape ->
{None, None},
Axes -> False ,
PlotStyle -> {{Thickness[0.003], GrayLevel[0.0]}, {Dashing[{0.01}],
Thickness[0.003], GrayLevel[0.2]}}, ImageSize -> 300];
The legend is pretty long to get the text in the box. But when prolonging the box the length of
the
small sample graph in the box does not get longer and there is lots of free space in the box.
Is there way to make the two lines in the box longer somehow??
Thanks,
Marcus
__________________________________
Do you Yahoo!?
The New Yahoo! Search - Faster. Easier. Bingo.
http://search.yahoo.com