Multiple plots sharing a single vertical axis

Question

I am trying to align a series of plots horizontally. They all share a vertical axis, but I only want to show the axis once on the leftmost plot. However, adding the vertical axis on one of the plots messes up the aspect ratio/scaling. For example, I can set it up this way

test = Reverse@Table[Table[i, {i, -1, 1, j}], {j, 0.1, 0.5, 0.1}];
len1 = Length@test[[All, 1]];
rule = {False, False};
GraphicsGrid[
 Partition[
  Table[
   Plot[test[[i]], {x, 0, .1}, ColorFunction -> "FallColors", 
    AspectRatio -> 3, Axes -> rule, 
    PlotLabel -> "N = " <> ToString[i]], {i, 1, len1}],
  len1],
 ImageSize -> Full]

The result looks like this:

However when I try to add the axis on the leftmost plot, by doing

test = Reverse@Table[Table[i, {i, -1, 1, j}], {j, 0.1, 0.5, 0.1}];
len1 = Length@test[[All, 1]];
GraphicsGrid[
 Partition[
  Table[If[i == 1, rule = {False, True}, rule = {False, False}];
   Plot[test[[i]], {x, 0, .1}, ColorFunction -> "FallColors", 
    AspectRatio -> 3, Axes -> rule, 
    PlotLabel -> "N = " <> ToString[i]], {i, 1, len1}],
  len1],
 ImageSize -> Full]

then the leftmost plot does gets compressed due to the fixed aspect ratio

any help appreciated, also I appreciate any suggestions for improving my plots. My plot looks like this:

Answer 1

LevelScheme (or SciDraw) ....

After loading the package:

Quiet@Needs["LevelScheme`LevelScheme`"]

ofig = Figure[{
   Multipanel[{1, 5},
    XPlotRanges -> {0, .1},
    YPlotRanges -> {-1., 1.25},
    XFrameLabels -> None, BufferB -> 2.5,
    YFrameLabels -> None, BufferL -> 3,
    XFrameTicks -> None,
    XPanelSizes -> 1, XGapSizes -> .05,
    YPanelSizes -> 1],
   FigurePanel[{1, 1}, ShowPanelLetter -> False, Frame -> False],
   RawGraphics@
    Plot[test[[1]], {x, 0, .1}, ColorFunction -> "FallColors"],
   ScaledLabel[{.5, .95}, "N=1", FontFamily -> "Helvetica LT Std"],
   FigurePanel[{1, 2}, ShowPanelLetter -> False, Frame -> False],
   RawGraphics@
    Plot[test[[2]], {x, 0, .1}, ColorFunction -> "FallColors"],
   ScaledLabel[{.5, .95}, "N=2", FontFamily -> "Helvetica LT Std"],
   FigurePanel[{1, 3}, ShowPanelLetter -> False, Frame -> False],
   RawGraphics@
    Plot[test[[3]], {x, 0, .1}, ColorFunction -> "FallColors"],
   ScaledLabel[{.5, .95}, "N=3", FontFamily -> "Helvetica LT Std"],
   FigurePanel[{1, 4}, ShowPanelLetter -> False, Frame -> False],
   RawGraphics@
    Plot[test[[4]], {x, 0, .1}, ColorFunction -> "FallColors"],
   ScaledLabel[{.5, .95}, "N=4", FontFamily -> "Helvetica LT Std"],
   FigurePanel[{1, 5}, ShowPanelLetter -> False, Frame -> False],
   RawGraphics@
    Plot[test[[5]], {x, 0, .1}, ColorFunction -> "FallColors"],
   ScaledLabel[{.5, .95}, "N=5", FontFamily -> "Helvetica LT Std"]
   },
  ImageSize -> .5 72 {PAGELENGTH, PAGEWIDTH}
  ]

gets us

There are many options for customisation & efficiency.