Is there a good way to stack plots that share a common X scale, but not a common Y scale? A toy example:
ts = Table[Sin[x/2.], {x, 0, 10}]
GraphicsColumn[{ListPlot[ts/100, Frame -> True,
FrameLabel -> {Null, "Stimulus"}],
ListPlot[ts, Frame -> True, FrameLabel -> {Null, "Response"}]}]
yielding
The X axes are redundant and don't even line up. Is there an easy way to combine these as separate frames above a single axis? In my real, more complicated problem, overlaying the plots is confusing as the points have a lot of scatter. Plotting them one above the other brings out the relationship better.