Prev: manipulate plot
Next: ListVectorPlot scaling
From: Mike Bryniarski on 12 Feb 2010 04:43
I want to show a several plots in a grid but only show tick labels and
axes labels on the outermost edges of the grid (all plots on a given
row or column have the same axis along their shared edge).Also there
must not be any space between the plots. I can get the plots in a grid
without gaps easily enough. here is a simple example:

m = 3;
p = Table[
Plot[x^(i/j), {x, -i, i}, PlotRange -> {{-i, i}, {-j, j}},
AspectRatio -> 1, Frame -> True, Axes -> False,
FrameTicks -> {{If[i == 1, All, None], If[i == m, All, None]},
{If[j == m, All, None], If[j == 1, All, None]}},
FrameLabel -> {If[j == m, "Time", None], If[i == 1, "Population",
None]},
ImagePadding -> Automatic],
{j, m}, {i, m}];
GraphicsGrid[p, Spacings -> 0]

But the "ImagePadding -> None" cuts off axes tick labels. I can
restore them by getting rid of the "ImagePadding -> None" but that
messes up the spacing. How would I go about showing the frame tick
labels while keeping the graphics grid gap free? The same goes for the
frame labels.

Thanks
-Mike

From: Ben Shepherd on 8 Mar 2010 06:41
On 12 Feb, 09:43, Mike Bryniarski <melondi...(a)gmail.com> wrote:
> I want to show a several plots in a grid but only show tick labels and axes labels on the outermost edges of the grid (all plots on a given
> row or column have the same axis along theirsharededge).Also there
> must not be any space between the plots. I can get the plots in a grid
> without gaps easily enough. here is a simple example:
>
> m = 3;
> p = Table[
> Plot[x^(i/j), {x, -i, i}, PlotRange -> {{-i, i}, {-j, j}},
> AspectRatio -> 1, Frame -> True,Axes-> False,
> FrameTicks -> {{If[i == 1, All, None], If[i == m, All, No=
ne]},
> {If[j == m, All, None], If[j == 1, All, None]}},

Yes - I want to do this too! StackedGraphicsArray used to work, but it
hasn't been updated since 2004. Surely there must be an easy way to do
this in Mathematica 7...

ben

> FrameLabel -> {If[j == m, "Time", None], If[i == 1, "Popu=
lation",
> None]},
> ImagePadding -> Automatic],
> {j, m}, {i, m}];
> GraphicsGrid[p, Spacings -> 0]
>
> But the "ImagePadding -> None" cuts offaxestick labels. I can
> restore them by getting rid of the "ImagePadding -> None" but that
> messes up the spacing. How would I go about showing the frame tick
> labels while keeping the graphics grid gap free? The same goes for the
> frame labels.
>
> Thanks
> -Mike


 | 
Pages: 1
Prev: manipulate plot
Next: ListVectorPlot scaling