| Author |
Comment/Response |
Jason
|
 09/24/11 00:30am
I'm trying to combine two plots using GraphicsRow. One of the plots has a legend. The resulting graphic has a huge amount of padding in the vertical dimension, I don't really know how to fix this.
Here is a working example that shows what I mean. This happens with both versions 7 and 8.
Needs["PlotLegends`"]
plot = Plot[{x, 2 x, 3 x, x^2}, {x, -5, 5}, ImageSize -> 460,
PlotStyle -> {{Red, Thick}, {Purple, Thick}, {Blue, Thick}, {Black,
Thick}}, PlotRange -> All, ImageSize -> 400, LegendSize -> .5,
Frame -> True, Axes -> False,
BaseStyle -> {15, FontFamily -> "Times"},
FrameLabel -> {"x label (unit)", "y label"},
PlotLegend -> {"Option 1", "Option 2", "Option 3", "Option 4"},
LegendPosition -> {.85, .0}];
plot2 = Plot[{x + 2 x + 3 x + x^2}, {x, -5, 5}, ImageSize -> 350,
PlotStyle -> {{Red, Thick}, {Purple, Thick}, {Blue, Thick}, {Black,
Thick}}, PlotRange -> All, ImageSize -> 350];
GraphicsRow[{plot, plot2}, Spacings -> Scaled[-.2]]
URL: , |
|
