I have the following example code and would like to make the lines in the legend longer - how can that be done?
Is there another possibility to plot such a legend when using Show
?
Needs["PlotLegends`"];
SeedRandom[314];
data1 = RandomReal[10000, 100];
data2 = RandomReal[10000, 100];
plot1 = ListLogLogPlot[data1, PlotStyle -> {Red}, Joined -> True,
PlotRange -> Full];
plot2 = ListLogLogPlot[data2, PlotStyle -> {Green}, Joined -> True,
PlotRange -> Full];
ShowLegend[
Show[plot1, plot2, Frame -> True,
FrameLabel -> {{"data1,data2", ""}, {"x", ""}},
BaseStyle -> {FontWeight -> "Bold", FontSize -> 20,
FontFamily -> "Calibri"}, ImageSize -> 800,
ImagePadding -> {{All, All}, {All,
50}}], {{{Graphics@{Red, Line[{{0, 0}, {0.9, 0}}]},
"data1"}, {Graphics@{Green, Line[{{0, 0}, {0.9, 0}}]}, "data2"}},
LegendPosition -> {-0.7, -0.4}, LegendSize -> {0.2, 0.1},
LegendShadow -> None, LegendTextSpace -> 10,
BaseStyle -> {FontWeight -> "Bold", FontSize -> 10,
FontFamily -> "Calibri"}}]
Line[{{0, 0}, {0.9, 0}}]
toLine[{{0, 0}, {4, 0}}]
then the lines are longer. $\endgroup$ – Jason B. Apr 6 '16 at 12:53