# Spacing and dimension of plots in Grid/GraphicsGrid

There is a way to align axis/picture in this kind of plot?

blocks = Table[
Graphics[
Plot[Sin[π i j x], {x, 0, 1},
PlotRange -> {{0, 1}, {-1, 1}},
Frame -> True,
FrameTicks -> {{If[j < 2, Automatic, None], None},
{If[i == 3, Automatic, None], None}},
ImageSize -> 200
],
], {i, 3}, {j, 3}];
myGrid = GraphicsGrid[blocks, Spacings -> {0, 0}, Frame -> None]


Any suggestion?

Thanks!

• related or duplicate: aligning-plot-axes-in-a-graphics-objec Commented Oct 13, 2015 at 19:47
• Also of interest: (79773), and (88312). Commented Oct 13, 2015 at 19:54
• I believe he wants to maintain the tight spacing of the plots w/o ticks, which makes it I think "not" a duplicate. Commented Oct 13, 2015 at 19:57
• Also related: mathematica.stackexchange.com/q/6877/8 Commented Oct 13, 2015 at 21:32

Specifically I came up with

blocks = Table[
Plot[Sin[π i j x], {x, 0, 1}, PlotRange -> {{0, 1}, {-1, 1}},
Frame -> True, BaseStyle -> {FontSize -> 15},
FrameTicks -> {
{Table[{y, Style[y, If[j == 1, Black, Transparent]]}, {y, -1, 1,
0.5}], None},
{Table[{y, Style[y, If[i == 3, Black, Transparent]]}, {y, 0, 1,
0.2}], None}
},
ImageSize -> 400, Epilog -> Inset[{i, j}, {0.5, 0}]], {i, 3}, {j, 3}];
myGrid = GraphicsGrid[blocks, Spacings -> {-25, -5}, Frame -> None]


It does but it is also tricky.

I've used transparent Frameticks to be sure everything is aligned.

• It took me a considerable amount of time in order to realize that it was the use of uniform ticks on all plots (with Transparency set on those that were not shown) that enables you to make the uniformly spaced output. I think you should spell that out in your answer. Commented Oct 16, 2015 at 23:33